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REM 


IDENTIFisCATION 
PRODUCT CODE: AC~E490A-MC 
PRODUCT NAME: CZTUPAO TMO3-TU4S CONTROL LOGIC TEST PART I] 
DATE CREATED: 25 MAY 1978 
MAINTAINER: CSS - NASHUA 
AUTHOR: J. G. ADAMS/R. J. COLLINS 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 


CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS 
FURNISHED TO THE PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDE IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBLILTY FOR THE USE OR RELIABILITY OF ITS 
hy ON EQUIPMENT THAT IS NOT SUPPLIED BY 

L. 


COPYRIGHT (@) 1975, 1978 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THIS PROGRAM IS DESIGNED TO SEQUENTIALLY TEST 

THE DATA FORMATTING FUNCTIONALITY OF THE TMO3 
FORMATTER. EACH TEST WILL ATTEMPT TO ISOLATE FAILURES 
TO THE MODULE LEVEL AND PROVIDE PRINTOUT INFORMATION 
WHICH WILL IDENTIFY THE FAILING MODULE. 

THE LEVEL OF FAULT ISOLATION IS POSSIBLE BECAUSE OF 
TMO3 THE STRUCTURE AND ITS MAINTAINENCE MODES. 


REQUIREMENTS (HARDWARE) 


ANY ; eae PROCESSOR 
8K OF CORE 

CONSOLE TTY 

TMO3 MAGTAPE CONTROLLER 
MASSBUS CONTROLLER (RH) 
TU4S5 MAGTAPE TRANSPORT 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE. 
STARTING PROCEDURE 


THERE ARE TWO (2) STARTING ADDRESSES THAT MAY BE USED: 
200(8) AND 210(8). 


- 200(8): STARTING AT THIS ADDRESS WILL CAUSE A PROGRAM 
tt ey HEADER TO BE PRINTED BEFORE TESTING 


210(8): STARTING AT THIS ADDRESS WILL NOT PRINT THE 
IDENTIFICATION HEADER AND IS THEREFORE GENERALLY 
TO BE USED FOR RESTARTS RATHER THAN INITIAL START 


NOTE: SEE ALSO SEC 5. CONSOLE SWITCH SETTINGS 
TYPE C TO RESTART PROGRAM (@200) 
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4.1 AUTOMATIC MODE OPERATION 


IF THIS PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODES 
DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED. THE SOFTWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF 100000 (HALT ON ERROR) 
IF IN ACT11 CHAIN MODE. NO OPERATOR INTERVENTION IS REQUIRED. 


**EXCEPTION: IF THIS PROGRAM IS LOADED VIA TMDP CHAIN MODE THE 
PROGRAM WILL NOT TEST TMO3 DRIVE #0, TU4S SLAVE #0. 


SAMPLE START AT 200 


NOTE: DEFAULT RESPONSES ARE SHOWN IN ANGLE BRACKETS <>, 
OPERATOR RESPONSES ARE SHOWN IN PARENTESES (), AND 
MEMORY LOCATIONS CONTAINING THE DEFAULT ARE SHOWN IN 
SQUARE BRACKETS. 


PARAMETER REQUEST: <DEFAULT> (RESPONSE) LOCATION: 


TMO3-TU4S CONTROL LOGIC TEST PART II (CZTUPAO) 
**tASSURE TAPE IS AT BOT#** 
TYPE C TO RESTART 


REGISTER START: <172440> (CR) 
VECTOR ADDRESS: <224> (CR) 
TMO3 DRIVE: <O> (CR) 
TU45 SLAVE: <0> (CR) 
IF THE SOFTWARE SWR IS INVOKED: 
SWR = <000000> NEW = (CR) 





ea 
TMOS-TU4S CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 5 


CZTUPA.P11 13-JUN-78 09:59 SEQ 0005 
5. CONSOLE SWITCH SETTINGS 
CONTROL : 


1) CONTROL G < G>; 
SELECTS THE SOFTWARE SWR AND ALLOWS NEW SWITCH SETTINGS. 


THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SwWR. 
AFTER "NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 
A) TYPE AN OCTAL NUMBER TO BE LOADED INTO THE SOFTWARE SWR. 
B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


CONTROL A < A>; 
ALTERNATES THE * suitcn REGISTER FROM HARDWARE TO SOFTWARE & VICE VERSA. 


CONTROL C < (>; 
RESTART PROGRAM AT 200 


CONTROL U < UD; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 


ALL SWITCHES ARE USED (0-15) AND THE — OR DEFAULT, RUN 
IS DONE WITH ALL SWITCHES SET TO ZERO (0). 
ALL SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY TIME. 


SW15: 1=HALT ON ERROR 
0=CONT INUE 

SW14:  1=LOOP ON ERROR (SCOPE) 
0=CONT INUE 

SW13: 1=D0 NOT PRINT ERRORS 
O=PRINT ALL ERRORS 

SW1i2:  1= —00 CONTINUOUS CYCLE 


SWi1l: = = INHIBIT ITERATIONS 
O=ITERATE EACH TEST ITS ASSIGNED AMOUNT 
SW10: 1=HALT AT END OF CURRENT TEST 
O=CONTINUE TO NEXT TEST 
Sw8: 1=INHIBIT WRAP AROUND DATA CHECK 
O0=DO DATA CHECKS 
SW7: 1=INHIBIT WRAP AROUND STATUS CHECK 
O0=DO STATUS CHECK 
SW6: 1=SELECTABLE WRAP DATA PATTERN (IN SINGLE TEST) 


=AUTO PATTERN 
SW5-0: SELECT INDIVIDUAL TEST ** 00=DO ALL TESTS 


2 


~" 


3 


~ 


4 


~ 
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ERROR PRINTOUTS 


ERROR PRINTOUTS WILL APPEAR IN TWO FORMS, ONE FOR THE 
CONTROL LOGIC TESTS AND ANOTHER FOR THE DATA TESTS. 


CONTROL LOGIC PRINTOUTS WILL CONTAIN A HEADER WHICH CALLS 

OUT THE TEST NUMBER, FUNCTION BEING TESTED, AND THE SUSPECT MODULE, 

OR MODULES ON THE FIRST LINE. THE SECOND LINE WILL CONTAIN INFORMATION 
AS TO THE ACTUAL ERROR. BOTH THE EXPECTED RESULT AND THE ACTUAL 

RESULT OF THE TEST WILL BE GIVEN. LINE THREE WILL SHOW THE 

CONTENTS OF THE MAJOR REGISTERS AT THE TIME OF THE ERROR AND 

LINE FOUR WILL PRINT THE ITERATION NUMBER WHEN APPLICABLE. 


DATA TESTS WILL PRINT A HEADER CONTAINING THE TEST NUMBER, 
AND A DESCRIPTION OF THE WRAP AROUND FUNCTION UNDER TEST. 
FOLLOWING THE HEADER WILL BE A LIST OF THE MAJOR REGISTERS 
WITH THE EXPECTED AND ACTUAL VALUES. ANY BAD DATA WILL BE 
PRINTED (PER CHARACTER) FOLLOWING THE REGISTER INFORMATION OR 
FOLLOWING THE HEADER IF NO STATUS ERRORS WERE ENCOUNTERED. 


5. THE FOLOWING ARE TWO EXAMPLES OF ERRORS DETECTED BY THE WRAP AROUND 
DATA TESTS. NOTE THAT EACH WRAP AROUND TEST MAY BE ACCOMPANIED 
BY EITHER A STATUS ERROR OF A DATA ERROR OR BOTH. 


LOGIC TEST 1: WRAP 3, NRZ, NORMAL, ODD 
BAD STATUS 

CS1 EXPT 004270 RCVD 144270 

CS2 EXPT 000100 RCVD 000100 

DS EXPT 010600 RCVD 150600 

ER EXPT 000000 RCVD 000100 


THIS MESSAGE INDICATES BAD STATUS OF VPE (BIT 6 OF ER) 
LOGIC TEST 3: WRAP 2, NRZ, NORMAL, ODD 


CN:10 
: 00000000 
: 00001000 


THIS MESSAGE SHOWS THAT DATA RECEIVED WAS NOT AS EXPECTED. CHARACTER 
ZERO (CN: 0) SHOWS THAT BIT TWO (2) WAS DROPPED, WHILE CHARACTER 

TEN (CN: 10) SHOWS BIT THREE (3) HAS BEEN PICKED UP 

G: = EXPECTED DATA (GOOD) 

B: = ACTUAL DATA (BAD) 


SEQ 0006 





oOo <_< 


H 1 
TMO3-TU4S CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 7 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0007 


OPERATION 


THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE 
SIMPLE AND REQUIRE ONLY A FEW STEPS: 


1. LOAD ADDRESS 200 OR 210 
2. SET SWITCHES FOR DESIRED TEST CYCLE 
3. PRESS START 


ALL CONSOLE SWITCHES ARE DYNAMIC AND MAY BE CHANGED 

AT ANY TIME. THE NORMAL OPERATING SEQUENCE IS ALL SWITCHES 
DOWN (0). THE TEST WILL TAKE APPROXIMATELY 3 MINUTES TO 
RUN; HOWEVER, IF ITERATIONS ARE INHIBITED (SW11=1) THE TEST 
WILL RUN IN ABOUT 30 SECONDS. THE END OF PASS IS 

nen ho, PRINTOUT STATING END OF PASS, AND THE NUMBER OF 


SINGLE TEST SELECTION: (SWO-SW5) 


WHEN SWO-SWS5 ARE SET TO ZERO (00), THE SCHEDULAR WILL 

EXECUTE ALL TESTS IN SEQUENCE. IF SWO-SW5 ARE SET 

TO SOME SPECIFIC TEST NUMBER THEN THAT PARTICULAR TEST 

ONLY WILL BE EXECUTED UNTIL THE TEST SELECT NUMBER IS CHANGED. 

WHEN YOU WISH TO SELECT A PARTICULAR TEST, SET SW10 TO 

A ONE (1) IN ORDER TO STOP AT THE END OF THE CURRENT TEST BEFORE 
SELECTING A DIFFERENT TEST NUMBER. YOU MAY SELECT THAT NUMBER IN 
ANY DIRECTION (HIGHER OR LOWER) BECAUSE EACH TEST IS SELF CONTAINED. 


WRAP AROUND DATA PATTERNS MAY BE SELECTED VIA SW6 WHEN IN 

SINGLE TEST MODE. A TELETYPE REQUEST IS MADE FOR THE DESIRED DATA 
PATTERN WHENEVER SWITCH TEN (SW10) AND SWITCH SIX (SW6) ARE SET TO 
A ONE (1) WHILE ONE OF THE WRAP TESTS IS SELECTED IN SWO-SW5. 
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8. SUBTEST SUMMARIES 


**NOTE: FOR TESTS 1-15** 


FOR THE MOST PART, THIS DIAGNOSTIC TESTS PARTICULAR 

AREAS OF THE TMO3 LOGIC INDEPENDENT OF THE TU45. HOWEVER 
THERE ARE A FEW SIGNALS WHICH ARE REQUIRED FROM THE TU45 
TO COMPLETE THE TESTS, AND AT LEAST ONE CASE WHERE TU45 
FAILURES INTERFERE WITH THE TESTS. THE KNOWN CASES ARE 
LISTED HERE AND SHOULD BE CHECKED AS PART OF THE DEBUGGING. 


1. MOL(SB)L: REQUIRED TO ENABLE CLOCK 
2. CLOCK(SB)L: REQUIRED TO GENERATE ACCELERATION AND SHUTDOWN. 
- WRITE CLOCK(SB)L: USED IN WAMO TO GENERATE DATA AND REC(SB)L 
- RSDO(SB)L: SHOULD NOT OCCUR DURING WRAP AROUND TESTS, BUT WILL 
INTERFERE WiTH THEIR OPERATION IF CAUSED BY A FAILURE 
SUCH AS A GROUNDED OUTPUT FROM THE G056. 


LOGIC TEST 1: WRP3S, NRZ, NORMAL, ODD (BIT FIDDLER READ) 


TAPE CONTROL REGISTER IS LOADED WITH DENSITY 3, FORMAT 14, 
ODD PARITY WRP3 IS LOADED IN MAINT. REGISTER. READ FUNCTION 
IS LOADED, EXECUTING WRAPS CONSISTS LOADING DATA CHARACTERS 
INTO MAINT. REGISTER DATA FIELD, WHERE THERE ARE MULTI- 
PLEXERS TO BIT FIDDLER, MM CLK IS TOGGLED TO CREATE RDS. 

THE BIT FIDDLER TRANSMIT DATA ACCESS MASSBUS DATA LINES. 
WHEN ALL THE DATA HAS BEEN TRANSMITTED AN EOR CLK IS 
TRANSMITTED TO N REGISTER WHICH BRINGS OPERATION TO A CLOSE. 


LIKELY FAULT LOCATIONS: 8906, M8905-YB, MASSBUS P-LINES 


PRINT REFERENCES 


MASSBUS CHAR. ASSEMBLE 
CLK. GENERATOR 
MAINT. REGISTER DATA FIELD 
RDS GENERATION 
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LOGIC TEST 2: WARP3, PE, NORMAL, ODD 


JUST LIKE TEST 1 EXCEPT FOR DENSITY BITS. 


LOGIC TEST 3: WRAP2, NRZ, NORMAL, ODD 


WRAP2 IS BIT FIDDLER WRITE. MM CLOCK IS MULTIPLEXED INTO 
WRT CLK SO THAT IT FORMS WRT STROBE. THE OUTPUT OF THE 

BIT FIDDLER IS CLOCKED INTO THE DATA FIELD OF THE MAINT- 
ENANCE REGISTER. SET UP CONSISTS OF MOVING NRZ, NORMAL 
FORMAT, ODD PARITY TO UNIT DESCRIPTION MAINT. REGISTER 

IS LOADED WITH WAM2 WRITE COMMAND IS ISSUED. AFTER THE 
ACCELERATION DCLAY, MM CLOCK ARE GENERATED UNTIL ALL THE 
DATA HAS BEEN CLOCKED. SEQUENCE IS COMPLETED BY LOADING 
MANTENANCE REGISTER WITH EOR CLR. THE SEQUENCE IS REPEATED 
WITH VARYING DATA PATTERNS. 


LIKELY FAULT LOCATIONS: M8906, M8905-YB, M8933 


CIRCUITS PRINT REFERENCES 
BIT FIDDLER CHAR UNPACK BF4 

BIT FIDDLER DATA REQUEST BF2 

WRT STRB. TCCM4 


MAINT. REG. DATA FIELD MR2, MRS 
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SEQ 0009 


oOo, 


kK 1 
TMO3-TU4S CONTROL LOGIC TEST-PART I] MACY11 39(1046) 13-JUN-78 13:42 PAGE 10 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0010 


LOGIC TEST 4: WRP2, PE, NORMAL, ODD 


THE TEST IS EXACTLY LIKE TEST 43 EXCEPT THAT PE WRT CLK 
ENBL L MUST BE ASSERTED BY M8932 TO ENABLE WR TO STROBE. 
THIS DOES NOT HAPPEN UNTIL THE PE WRITE CONTROL CIRCUIT 
HAS CLOCKED THROUGH THE PREAMBLE. 


CIRCUITS PRINT REFERENCES 


(IN ADDITION TO TEST 44) 
PE WRITE CONTROL TCPES 


LOGIC TEST 5: WRP1, NRZ, NORMAL, ODD 


THIS TEST IS EXACTLY LIKE TEST 43 EXCEPT THE WRITE BUFFER 
(TCCM2) IS MULTIPLEXED TO THE MAINTENANCE REGISTER. 


LIKELY FAULT LOCATIONS: M8933, M8934 (CRC GENERATOR) 


CIRCUITS PRINT REFERENCES 
WRITE BUFFER TCCM2 
CRC GENERATOR CNRZ2 


LOGIC TEST 6: WRAP1, PE, NORMAL, ODD 


IN PE MODE BOTH THE PREAMBLE AND POSAMBLE ARE CLOCKED 
THROUGH THE WRITE BUFFER IN ADDITION TO PHASE ENCODED DATA. 


LIKELY FAULT LOCATIONS: M8932 (WRITE CONTROL STATES), M8933 


CIRCUITS PRINT REFERENCE 


WRITE BUFFER TCCM2 
WRITE CONTROL TCPES 


o—,_ 
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LOGIC TEST 7: WRAPO, NORMAL, ODD 


WRAP 0 IS THE MOST COMPLETE OF THE TMO3 WRAPAROUND DATA 
PATH. IT CONSISTS OF A WRITE OPERATION IN WHICH THE OUT- 
PUT OF THE WRITE DATA BUFFER IS MULTIPLEXED TO THE READ 

DATA INPUTS, CHECKED AND LOADED INTO THE MAINTENANCE REG- 
ISTER FOR RETRIEVAL BY THE PROCESSOR. THE WHOLE OPERATION 
USES THE TYPE SYSTEM CLOCKS AND HAPPENS AT THE PROPER 

DATA RATES. MM CLK SERVES AS A FLAG ANNOUNCING WHEN A 

NEW CHARACTER HAS BEEN LOADED INTO THE MAINTENANCE REGISTER. 
IN PE MODE EVERY OTHER CHARACTER IS READ TO ALLOW SUFFICIENT 
PROCESSOR LOOP TIME. IN NRZ WRAP 0 IS EXPECTED TO PRODUCE 
LRC ERRORS BECAUSE THE TMO3 DOES NOT WRITE THE LRC CHARACTER. 


LIKELY FAULT LOCATIONS: M8934, M8933 


PRINT REFERENCES 


CRC GENERATOR 

CRC CHECKOUT 

CRC, CRC STROBE 

READ LINE MULTIPLEXERS 
MM CLK 


CRC READ TIMING 
SHUTDOWN CIRCUITRY 


LOGIC TEST 10: WRPO, PE, NORMAL, ODD 


REPEAT OF TEST 7 IN PE MODE. 
LIKELY FAULT LOCATIONS: M8901, M8932, M8933 


PRINT REFERENCES 


o—, 


DATA DISCRIMINATOR DS2, DS4, DS6 


PHASE LOCKED CLOCK 

SKEW BUFFER 

PE WRITE MAJOR STATES 

PE READ MAJOR STATES 

WRAP 0 CIRCUIT TO BLOCK RLT RDS 
DESKEW BUFFER READ COUNTER 


DS3, OSS, DS? 
0S3, DSS, DS? 
TCPES 
TCPES 


TCPE3 
TCPE4 
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LOGIC TEST 11: CORE DUMP WRITE, WAM2 


8 OF TEST 3 EXCEPT BIT FIDDLER OPERATES IN CORE DUMP 


LIKELY FAULT LOCATION: 8906 


LOGIC TEST 12: CORE DUMP READ, WAMS 
wt yy OF TEST 1 EXCEPT BIT FIDDLER OPERATES IN CORE DUMP 


LIKELY FAULT LOCATION: M8906 


LOGIC TEST 13: EVEN PARITY WRITE - WAM 


REPEAT OF TEST 5 EXCEPT EVEN PARITY IS SPECIFIED. 
LIKELY FAULT LOCATION: 8933 


LOGIC TEST 14: EVEN PARITY READ: WAMO, 


REPEAT OF TEST 7 EXCEPT EVEN PARITY IS USED. 
LIKELY FAULT LOCATIONS: M8933, M8934 
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LOGIC TEST 15: READ REVERSE, WAM3 (M8906) 


REPEAT OF TEST 2 EXCEPT READ REVERSE COMMAND IS ISSUED. 
LIKELY FAULT LOCATIONS: M8908, 8939 


THIS TEST SIMULATES A BAD TRACK ON TAPE RESULTING IN A CRC ERROR & 
SUBSEQUENT CORRECTION OF DATA IN THE FAILING TRACK. 
THE TEST PROCEEDS THROUGH THE FULLOWING STEPS: 


A:WRITE DATA USING WRAP 0 

B:REWRITE DATA WITH DATA BITS IN ONE TRACK ALTERED USING WRAP 4 
C:READ REVERSE USING WRAPS 

D:REWRITE DATA AS IN STEPB USING WRAP4 

AT THIS POINT THE DATA READ BACK HAS BEEN CORRECTED TO MATCH 
THE DATA WRITTEN IN STEP A 

E:REPEAT STEPS A-D ABOVE FOR EACH TRACK 

F:REPEAT STEPS A-E ABOVE FOR ALL 1°S,ALL O'S & 

125125 DATA PATTERNS. 


LOGIC TEST 17: CRC ERROR CORRECTION 


THIS TEST SIMULATES MULTIPLE FAILING TRACKS & TEST THAT 
NO ERROR CORRECTION IS PERFORMED. THE TEST SEQUENCE IS THE 
es Po TEST 16 STEP A--STEP E. THE DATA PATTERN USED IS 


LOGIC TEST 20: READ REVERSE WAM3 NRZ 


REPEAT OF TEST 15 ABOVE (SEE ALSO TEST 2) EXCEPT THE TEST IS 
PERFORMED IN NRZ MODE. 


-LIST BIN,LOC,SEQ 
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-TITLE TMO3-TUSS CONTROL LOGIC TEST-PART [1 
> CZTUPAO 

725 MAY 78 

3J.G. ADAMS/R. J. COLLINS 


REVISED JUN 1977 BY J.G.ADAMS se CHANGED MODULE TYPEOUTS TO 
+*B REFLECT TMO3 REGISTER SET 

-MCALL .SACT11,.SEOP,SCATCH, SSAVE, SRESTORE , SCHAIN, SCHNMODE 

-NLIST MC 

LIST ME 

ENABLE ABS,AMA 


SCONSOLE SWITCHESteeereeee 


[$W15: 1=HALT ON ERROR 
: =CONTINUE 
:S$W14: 1=LOOP ON ERROR 
:$W13: 


INUE 

DO NOT PRINT ERRORS 
: PRINT ERRORS 
:Sw12: 1=HALT AT END OF PASS 
>SW11: 
:$w10: 


o 
oO 
z 
=) 


CONTINOUS CYCLE 

INHIBIT ITERATIONS 

DO ITERATIONS 

HALT AT END OF EACH TEST 
TINUE 


O WRAP DATA CHECK 


O WRAP STATUS CHECK 
O WRAP STATUS CHECK 


C 

N 

DO WRAP DATA CHECK 

D 

SELECTABLE WRAP DATA PATTERN (IN SINGLE TEST) 


rere ce chee cece reer 


“" 
> 
G 
“+ 
oO 
wv 
Be 
—~ 
—_ 
mn 
=] 
z 
(74) 


:SwO-5: SELECT TEST NUMBER :: OO=ALL TESTS 
;1F HARDWARE SWR <15::00> = 177777 OR NOT AVAILABLE USE SOFTWARE SWR 
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3TU4S REGISTER BITSeeeeeeeeee 


s15 3 313 512 311 310 ;09 ;08 ;07 ;06 ;05 ;04 ;03 ;02 ;01 ;00 ; 
xo oon enone ae cnn 
2 TRE; sMCP; SPR; s DNA; PSL; pA17; Al6; RDY; IE :FUN; FUN; FUN; FUN; FUN; GO ; 


=1 
Dg tiene omensersnmmnamne esr 
: COUNT : 
MTTITITESTITTTTTTTTTETTTTETTTTTTTTTER TTT TEETER TTTTRTTTTTTTTTTT. 
> ADDRESS , 
per ertrnepmemarcenopesoenepnesiemcage 


; COUNT 
1000000000000 0000000000000 AIA 
:DLT; sWCE; SUPE; sNED; NER: PGE; sAXF; sMOP; :OR z1R :CLR; PAT; sBAI; :U2 :U1 :U0 : 


£90000 000500150000 0000001 OITA R OTT ITO ARIK TIIIIE 
sATA; ERR; PIP; sMOL ; sWRL; sEOT; SPR; DPR: DRY; sSSC; ‘PES; SON; 108; TMK; ‘BOT; SLA; 


$9000 00000000000 AR IO TIT IATO ATI KIIIK 
+ CDE; SUNS; sOPI; sDTE; sNEF sCS sFCE; iNSG; PEF; INC;DAT; FMT; CNT; RAR: ILR; ILF; 


;LRC;VPE;BPE; BPE; 
{CTS peeeeereeernannrrenensenneneme nates 
3 TEN E 
3; SUMMARY 


"1 cunigepenepemanarmromomecemnemnercaecine: 
HECK 


3 ¢ 
; CHARACTER 
[[ioleer renee emarerennennenermemmne jee 


; BUFFER 
MITTTTTTISTTITTTTTETTTETETETTRTTTTTTOTTTETTTTTTTTTTTTTTTTOTTIT? 
:D8 :08 :08 208 208 :08 208 +08 +08 eWRT; 7mm : OP :0P :0P :0P aa 3 


$0000 0000000000000 GOGO TOTO TOTO GOAT TIO 
; DRIVE sf ; #SLV; : 
; TYPE sas 63a 

#0000000 0300000500000 XIHA IIH HAI AHHH 
; NUMBER 

$)90001000000000000000000000 0000000000000 000K 
sACL; sFCS; s SAC; ENA; SPR; DEN; ‘DEN; DEN: FAT; FMT; SFMT; FMT; EVN; SSN: SSN; SSN; 


307 3 6:;23;138;463; 23 1 sPAR: 63 23 
1000000300050 0000000 G0 0000 000K TOGO BIOIIIGOIIT 
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SREGISTER EQUIVStteteeeere 
000000 


000007 


sACT11 HOOK eeeeetereee 
000764 SSVPC=. SAVE CURRENT LOCATION CTR 
000046 -WwORD SENDAD SET LOCATION 46 


000052 "woRD 0 :SET LOCATION 52 = 0 
000764  =$SVPC RESTORE LOCATION CTR 


;TTY INTERRUPT VECTORettteeeeee 


000060 -=60 
000060 012306 -WORD TTINT ;TTY INTERRUPT HANDLER ADDRESS 
000062 000340 ~-WORD 340 PRIORITY LEVEL 7 


;SOFTWARE SWITCH REGISTERtttereneeee 
;USED IF HARDWARE SWR = 177777, OR NOT AVAIL. 
000176 -=176 
000176 000000 -WORD 0 


SSTART ADDRESSttteeeeerer 
000200 000137 001200 jmp START PROGRAM START 


000200 


ZRESTART ADDRESS*teeeeenere 
000210 -=210 
000210 000137 001670 JMP ST2 
:TMO3 INTERRUPT VECTOReteteeerer 
000224 22224 


000224 012276 MTINT ; TAPE INTERRUPT HANDLER ADDRESS 
000226 000340 340 
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000510 


-=510 
MASS BUS REGISTER EQUIVSttetertere 
000510 172440 : 172440 


000542 172472 : 172472 
; ILLEGAL FUNCTION CODES 
000544 005405 


000564 036473 
SCONSTANTSteeeeteeee 


000566 177776 : 177776 PROCESSOR STATUS 
: 177570 sSWITCH REGISTER 
177560 : TTY READER STATUS 
177562 TTY READ BUFFER 
177564 TTY PUNCH STATUS 
177566 : TTY PUNCH BUFFER 
: 177777 ; SERIAL NUMBER 
011 :DRIVE TYPE 
20 : ITERATION AMOUNT 
> ©6224 ; INTERRUPT VECTOR(RH) 
000612 172440 > 172440 STARTING REGISTER ADDRESS 
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FLAGS AND COUNTERStttteeeere 
;NOTE ALL FLAGS AND COUNTERS ARE CLEARED ON STARTUP. PUT ANY 
aa ix eek BETWEEN STFLGS (START OF FLAGS) AND ENDFLG 


000614 — 
000000 


0 
0 
: @ 
: 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


000756 000000 
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000760 000000 DATAD: 
0 RDAD: 
W2FLG: 
DERFL: 
PREFL: 
SERFL: 
CRCNT: 
UDES: 
WPGFL: 
PATRN: 
STATF: 
RDRVF : 
RCDP: 
STATC: 
SKAT: 
PCNTR: O :PASS COUNTER 
DCHKFL: .WORD 0 ;DATA CHECK FLAG 0/1 = CHECK/DO NOT CHECK 
000000 CRCFLG: .WORD 0 :CRC CORRECTION TEST IN PROGRESS 
001024 ENDFLG: 


SEXPT WRAP STATUStttetee 


oOooooocococoocooo 


001024 000000 
001026 000000 
001030 000000 
001032 000000 


DATA PATTERN GENERATORS*tete 


005076 : sALL ONE BITS 

005116 : ALL ZERO BITS 

005122 : ALTERNATING ONE/ZERO BITS 
005130 : ALTERNATING PARITY CHARACTERS 


;CORE DUMP PATTERNSttteeee 
000005 


001066 000000 


o---- oO MU 





¥ @ 
TMO3-TUSS CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 20 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0020 


sLOGIC TEST ENTRY TABLE ttttereeee 
001070 000000 TSTTBL: ; 


000000 
002352 


L 
TADX: -WORD TEND 
001176 000020 TLAST: .WORD 20 ; CONTAINS # OF TESTS 
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PROGRAM START AND HOUSEKEEPING*ttteeenee 


001200 012706 000500 : #500,SP ;SET STACK POINTER 
M a#4 ,-(SP) SAVE ERROR TRAP 
a#6,-(SP) 
000004 —— ;SET TIME OUT TRAP TO GO TO 1$ 


177777 =—-177334 #177777 ,aSWR USE SOFTARE SWITCH IF SWR = 177777 
2$ OR TIMES OUT 
3$ OTHERWISE USE HARDWARE SWR 
1$: (SP)+, (SP) + RESET STACK 
000176 000570 2$: #SWREG,SWR SET SWR = TO ADDRESS OF SOFTARE SwWR 
000006 3$: (SP)+,a#6 RESTORE ERROR TRAP 
000004 (SP)+,a#4 
CL (PC)+ 3:CLEAR CHAIN INDICATOR 
001262 000000 CHNFLG: 0 ::CHAIN MODE INDICATOR 
3:1/0 = CHAIN/NOT CHAIN MODE 
001264 022737 002310 000042 +S ‘aan ; BRANCH IF LOADED VIA ACT11 CHAIN MODE 


000042 :;BRANCH IF IN DUMP MODE 


000176 000570 : #SWREG, SWR INVOKE SOFTWARE SWR 

100000 177250 #100000 ,aswr :;WITH HALT ON ERROR SET 

001262 : CHNFLG :3;SET CHNFLG = CHAIN MODE 
000137 001714 TSCD 3:G0 TO CHAIN ADDRESS 


122737 000006 000041 4$: ata BRANCH IF NOT LOADED VIA TMDP 


014471 #MSG62,R4 sADVISE USER TO REMOVE MEDIA FROM UUT 
PC, TTOUT 
#ASG1,R4 
PC, TTOUT PRINT TITLE 
013674 #°#,ASG1 3:00 NOT PRINT TITLE ON RESTART 
#ASG44 ,R4 
PC, TTOUT sREQUEST REGISTER ADDRESS 
REGS ,R3 
PC,OCTP PRINT CURRENT ADDRESS 
#REGS,RS SET ADDRESS SAVE LOC 
#7, SET SIZE OF RESPONSE 
#176400,R2 :SET UPPER LIMIT 
ah taf R3 :SET LOWER LIMIT 
:G0 GET RESPONSE 
ansGes, R4 


REQUEST VECTOR 


PRINT CURRENT VECTOR 
:SET ADDRESS SAVE LOC 
SET SIZE OF RESPONSE 
SET UPPER LIMIT 
SET LOWER LIMIT 
3G0 GET RESPONSE 
VECT,RO GET VECTOR 
JMTINT, (RO)+ LOAD INTERRUPT ADDRESS IN VECTOR 
012710 000340 #340, (RO) ;LOAD PRIORITY 
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001512 013700 000612 REGS ,RO GET START OF REGS 
000016 SET NUMBER OF REGS 
000510 GET START OF TABLE 
: ;BUILD TABLE 
000002 #2,R0 ;BUMP ADDRESS 
R SEE IF DONE 


IF NOT: BR 
000614 #STFLGS,R2 
000210 #ENDFLG-STFLGS,RO :GET # OF FLAGS TO CLEAR 
RO FORM COUNT 
— :CLEAR FLAGS + COUNTERS 


7$ 
014431 #ASG57,R4 REQUEST TMO3 DRIVE # 


GET CURRENT DRIVE 
AND TYPE IT 

TTR ROUTINE RETURNS DRIVE TO (R5) 
sLIMIT RESPONSE TO 1 CHARACTER 
s;BETWEEN 0 AND 7 


GET RESPONSE & PUT IN DRVN 
sREQUEST SLAVE # 


:GET CURRENT SLAVE # 

AND TYPE IT 

TTR ROUTINE RETURNS REPONSE TO (R5) 
sLIMIT RESPONSE TO 1 CHARACTER 
BETWEEN 0-7 


001664 004737 012430 PC.TTR GET RESPONSE & PUT IT IN SLVN 


001670 012706 000500 §T2: #500,SP ;SET STACK PTR 

001674 005037 001006 RORVF CLEAR READ REVERSE FLAG 

001700 005037 001016 PCNTR 

001704 005037 001022 CRCFLG SET CRC FLAG = CRC NOT IN PROGRESS 
001710 004737 013532 PC,.GTSWR GET SOFTWARE SWITCHES 
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001714 
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052777 


060037 
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000100 


177700 
001262 
177777 
177777 
000040 
000624 
000010 
000624 
176466 
010000 
000664 
000624 
000006 


000664 
000010 


000664 
002000 


001070 


176572 
002000 
001000 
000740 


17636é 
177700 


000001 
001176 


001070 
000742 


176650 


000624 
000664 
176524 
000624 
176502 


176470 


000041 
000664 
176442 
176430 
000742 


000714 


176410 


000740 


000742 
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NXTSLV: 
B 
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#100,aTKS 
WPGFL 

Bad gy 
@SWR,RO 
#177700, RO 


acl 
#10000,aCS 
1$ 


SLVN 
1$ 
DRVN 


1$ 
#6,a841 
1$ 


SLVN 
#10,SLVN 
NXTORV 
SLVN,aTC 
#2000 ,aDT 
NXTSLV 


2 
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STEST SCHEDULAReeerrenere 


SET KEYBOARD IE BIT 
;CLEAR WRAP PATRN FLAG 
CLEAR SINGLE TEST FLAG 


BRANCH IF SINGLE TEST SELECTED 
:GO SELECT SINGLE TEST 
:;BRANCH IF NOT IN CHAIN MODE 


s: INITIALIZE DRIVE # 

sc INITIALIZE SLAVE # 

3: INIT CONTROLLER 

7:STEP DRIVE # 

7sEXIT IF ALL DRIVES TESTED 
3:FOR AVAILABILITY 

3;LOAD DRIVE # 

7; ACCESS DRIVE 

7;BRANCH IF DRIVE NON EXISTANT 
3: (NED = 1) 

7:STEP SLAVE # AND BRANCH 
zc 1F NOT SLAVE 0 

7:BRANCH IF NOT DRIVE # 0 


:;BRANCH IF NOT TMOP 


7:STEP TO SLAVE # 1 

;:BRANCH IF ALL SLAVES TESTED 
72FOR AVAILABILITY 

3;LOAD SLAVE UNIT # 

7:BRANCH IF SLAVE NOT 

7 PRESENT (SPR = 0) 


#TSTTBL,LTADD 


#4,LTADD 


LTADD, ITRLP 


#2, 1TRLP 


HORFL 
@LTADD,RO 
(RO) 
#2000,aSWR 
TSCD3 
WPGFL 
STFLG 
TSCDO 


aswR,RO 
#177700.R0 
TSCD 


RO 
#TSTTBL,LTADD 
RO,LTADD 


SET ITERATION ADDRESS 
;CLEAR PRINT HEADER FLAG 
;SET POINTER TO TEST 
:60 TO TEST 


;SEE IF HALT ON TEST 
:1F NOT: BR 


CLEAR WRAP DATA GENERATOR FLAG 
SE IF SINGLE TEST 

:1F NOT: BR 

ree NUMBER 

SET SINGLE TEST FLAG 

SEE IF EXCEEDED TESTS 

IF SO: BR 

SET TABLE MODIFIER 


SET TEST POINTER 


SEQ 0023 
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001262 
014346 
012752 


001016 
013100 


000042 


001262 
010000 


001016 
001714 


176232 
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B TSCD1 
TEND: CHNFLG 

B NXTSLV 
SDONE: , #SG41,R4 


BRANCH IF IN CHAIN MODE 


;PRINT END OF PASS 

:PRINT PASS NUMBER 

DELAY WAITING FOR 

:TTY TO FINISH 

GET ACT11 RETURN ADDRESS 
BRANCH IF NOT ACT11 


R 
SENDAD: PC, (RO) 
N 


CHNFLG BRANCH IF IN CHAIN MODE 


TENDX 
#10000 ,aswR ;SEE IF HALT ON PASS 
TENDX :1F NOT: BR 


PCNTR :BUMP PASS COUNTER 
TSCD RESTART 


SEQ 0024 
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THESE TESTS CHECK DATA FORMATTING 
zAND TRANSFER THROUGH THE TMO3 WRAP AROUND MODES 


sLOGIC TEST 1: WRAP 3, NRZ, NORMAL ODD *e*** 


002352 012737 004270 001024 : #4270,WCS1 SET EXPT CS1 
#100,WCS2 SET EXPT CS2 
#10600 ,W0S SET EXPT DS 
#0,WER :SET EXPT ER 
#ASLT1,EMADDR ;SET HEADER 
000776 M #1700,UDES SET NRZ,NORMAL, ODD 
: PATRN :POINT TO PATTERN 0 
000712 mM #LT1B,SCOLP SET SCOPE ADDRESS 
PC ,WAMS :GO DO WRAP 3 
;BUMP PATTERN POINTER 
000004 001002 SEE IF DONE 
LT1B :1F NOT: BR 
012052 :GO SEE IF ITERATIONS 
001006 CLEAR READ REVERSE FLAG 
002460 000137 002152 RETURN TO SCHEDULAR 


~sLOGIC TEST 2: WRAP 3, PE, NORMAL, ODD*eee* 


002464 000240 : 
004270 001024 : #4270 ,WCS1 SET EXPT CS1 
#100 ,WCS2 SET EXPT CS2 
#10640,WDS SET EXPT DS 
#0,WER SET EXPT WER 
WASLT2,EMADDR ;SET HEADER 
000776 #2300.,UDES ;SET PE, NORMAL, ODD 
000137 002416 LTIA EXECUTE TEST SEQUENCE 


sLOGIC TEST 3: WRAP 2, NRZ, NORMAL, ODD*eeee 


012737 004260 001024 : #4260 ,WCS1 SET EXPT CS1 
#100,WCS2 SET EXPT CS2 
#10600 ,W0S SET EXPT DS 
#0,WER SET EXPT WER 
#ASLTS,EMADDR ;SET HEADER 
000776 mM #1700,UDES sSET TO NRZ,NORMAL, ODD 
: PATRN ;POINT TO PATTERN 0 
000712 #L1T3B,SCOLP SET SCOPE ADDRESS 
PC ,WAM2 GO DO WRAP 2 
I ;BUMP POINTER 
000004 001002 SEE IF DONE 
L138 :1F NOT: BR 
012052 :GO SEE IF ITERATIONS 
002640 000137 002152 TSCD2 RETURN TO SCHEDULAR 
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LOGIC TEST 4: WRAP 2, PE, NORMAL, ODDeeere 


002644 000240 
004260 001024 #4260 ,WCS1 SET EXPT CS1 
#100,WCS2 ;SET EXPT CS2 
#10640,WDS ; EXPT DS 
#0 ,WER 3 EXPT WER 
#MSLT4,EMADDR ; HEADER 
000776 #2300 ,UDES SET PE, NORMAL, ODD 
002712 000137 002602 LT3A :GO EXECUTE TEST SEQUENCES 


sLOGIC TEST 5: WRAP 1, NRZ, NORMAL, ODD**e%+ 


002716 012737 004260 001024 : #4260,WCS1 SET EXPT CS1 
#100,WCS2 SET EXPT CS2 
#10600 ,W0S SET EXPT DS 
#0,WER SET EXPT WER 
#MSLTS,EMADDR ;SET HEADER 
000776 M #1700,UDES :SET NRZ, NORMAL, ODD 
PATRN :POINT TO PATTERN ZERO 
000712 M #LT58,SCOLP SET SCOPE ADDRESS 
WAM :GO DO WRAP 1 
:BUMP POINTER 
000004 001002 SEE IF DONE 
T5 :1F NOT: BR 
012052 :GO SEE IF ITERATIONS 
003020 000137 002152 RETURN TO SCHEDULAR 


sLOGIC TEST 6: WRAP 1, PE, NORMAL, ODD**eeee 


WwnN— 


003024 000240 
011550 PC ,PPGEN GO GENERATE PRE/POSTAMBLE 
001024 #4260,WCS1 SET EXPT CS1 
#100,WCS2 SET EXPT CS2 
#10640,WDS SET EXPT DS 
#0,WER SET EXPT WER 
WASLT6,EMADDR ;SET HEADER 
000776 #2300,UDES SET PE, NORMAL, ODD 
003076 002762 LTSA :GO EXECUTE TEST SEQUENCE 


110 
110 
110 
1104 
1105 
1106 
110 
110 
110 
111 
111 
111 
111 
111 
111 
111 
111 
111 


DBNOUSWNM—"OOOn 
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;LOGIC TEST 7: WRAP 0, NRZ,NORMAL, ODDeeeee 


003102 012737 144260 001024 : #144260 ,WCS1 SET EXPT CS1 
#100,wCS2 : EXPT CS2 
#150600 ,wOS : EXPT DS 
#200 ,WER ; EXPT ER 
@ASLT7,EMADDR- ; HEADER 
000776 #1700, UDES SET WRZ, NORMAL, ODD 
PATRN :POINT TO PATTERN 0 
000712 #LT7B,SCOLP SET SCOPE ADDRESS 
[GO DO WRAP 0 
;BUMP POINTER 
000004 001002 SEE IF DONE 
IF NOT: BR 
012052 :GO SEE IF ITERATIONS 
003204 000137 002152 RETURN TO SCHEDULAR 


sLOGIC TEST 10: WRAP 0, PE, NORMAL, ODD*teee 


003210 000240 : 

004260 001024 : #4260,WCS1 SET EXPT CS1 

000100 001026 #100 ,WCS2 SET EXPT CS2 

010640 001030 #10640 ,WDS SET EXPT DS 

000000 001032 #0,WER :SET EXPT ER 

015174 000622 #MSLT10,EMADDR ;SET HEADER 

002300 000776 #2300, UDES ;SET PE, NORMAL, ODD 
003256 000137 003146 LT7A :GO EXECUTE TEST SEQUENCE 


2 
2 
é 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 


QUSWN SO OONAUESWN $0 OONOUSWN— 
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LOGIC TEST 11: CORE DUMP WRITE, WAM2eeeeene 


012737 004260 001024 #4260,WCS1 SET EXPT CS1 
#100,WCS2 sSET EXPT CS2 
#10600 ,WOS SET EXPT DS 
#0,WER SET EXPT ER 
#MSLT11,EMADDR ;SET HEADER 
000776 #1720,UDES SET NRZ, CORE DUMP, ODD 
PATRN POINT TO PATTERN 0 
000712 M #LT11A,SCOLP SET SCOPE ADDRESS 
2 :GO DO WAM 2 
000002 001002 C 4 IF _ 


:1F SO: B 
000002 001002 sSELECT PATTERN 2 
LTI1A ; CONTINUE 


B :CO 
012052 :GO SEE IF ITERATIONS 
003370 000137 002152 RETURN TO SCHEDULES 


LOGIC TEST 12: CORE DUMP READ, WAM 3xeeee 


003374 012737 004270 001024 #4270,WCS1 SET EXPT CS1 
#100,WCS2 sSET EXPT CS2 
#10600,W0S ;SET EXPT DS 
#0,WER sSET EXPT ER 
#MSLT1c EMADDR ;SET HEADER 
000776 #1720,UDES sSELECT NRZ, CORE DUMP, ODD 
PATRN s;SELECT PATTERN 0 
000712 #LT12A,SCOLP ;SET SCOPE ADDRESS 
001010 M #WCDPO,RCOP ;POINT TO PATTERN O 
360 DO WAM3 
000002 001002 ;SEE IF DONE 
12 :IF SO: BR 
000002 001002 SELECT PATTERN 2 
001044 001010 #WCDP2,RCDP ;POINT TO PATTERN 2 
B LT12A ; CONTINUE 
012052 3:GO SEE IF ITERATION 
003516 000137 002152 ;RETURN TO SCHEDULE 


= 
= 
oo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee ee a at od at 


Co 09 69 C8 INI NN SI NINN NSN NN SNA AAAAADAAAOMMNMNYN NS 
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LOGIC TEST 13: EVEN PARITY WRITE: WAM 1(M8933)eex0e 


012737 004260 001024 3: #4260,WCS1 SET EXPT CS1 
#100,WCS2 SET EXPT CS2 
#10600,WDS SET EXPT DS 
#0,WER SET EXPT ER 
#WMSLT13,EMADDR ;SET HEADER 
000776 #1710,UDES SET NRZ, NORMAL, EVEN 
003566 000137 002762 LTSA GO EXECUTE WAM 1 


sLOGIC TEST 14: EVEN PARITY READ: WAM 0(M8933 M8934) eee0% 


003572 012737 144260 001024 : #144260 ,WCS1 SET EXPT CS1 

000100 001026 #100,WCS2 SET EXPT CS2 

150600 001030 #150600 ,WDS SET EXPT DS 

000200 001032 #200 ,WER SET EXPT ER 

015444 000622 #MSLT14,EMADDR ;SET HEADER 

001710 000776 #1710, UDES 7SET NRZ, NORMAL, EVEN 
003636 000137 003146 LT7A GO DO WAM 0 


sLOGIC TEST 15: READ REVERSE: WAM 3(M8906)*tee« 


003642 012737 004276 001024 : #4276,WCS1 SET EXPT CS1 
#100,WCS2 SET EXPT CS2 

#10640,WDS SET EXPT DS 

SET EXPT ER 


#0,WER 
#MSLTIS,EMADDR ;SET HEADER 
002300 000776 #2300,UDES ;SELECT PE,NORMAL ,ODD 


000001 001006 #1 ,RORVF SET READ REVERSE FLAG 
003720 000137 002416 LT1A :GO DO WAM 3, REVERSE 
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sLOGIC TEST 16: CRC CORRECTION-SINGLE TRACK,EVERY FRAME 

THIS IS A TEST OF THE CRC CORRECTION LOGIC. THE TEST WRITES 
:A KNOWN PATTERN (ALL 1°S , ALL 0°S & 125252) WITH A DATA BIT 
ALTERED IN EACH OF THE DATA TRACKS. THIS TEST INSURES THAT A 
;CRC CORRECTABLE ERROR IS CORRECTED. 

; THE TEST PROCEEDS AS FOLLOWS: 


STEP A WRITE A KNOWN PATTERN USING WRAP AROUND MODE 0 


STEP B REWRITE THE PATTERN ABOVE WITH DATA BIT(S) MODIFIED 
IN TRACKS SPECIFIED BY CRCPAT USING WRAP AROUND MODE 4 
THIS WILL GENERATE A CRC ERROR 


EXECUTE A READ REVERSE USING WRAP AROUND MODE 3 


REPEAT STEP B ABOVE. UPON COMPLETION THE DATA READ 
BACK WILL MATCH THE DATA WRITTEN IN STEP A. 


003724 005037 001002 LT16: PATRN sSELECT PATTERN # 0 (ALL 1°S) 
012737 000401 004302 #401,CRCPAT ;SELECT BITS TO BE ALTERED (TRACK 1) 
012737 015570 000622 #ASLT16,EMADDR ;SET ERROR MESSAGE HEADER 

003744 012737 003752 000712 #LT16A,SCOLP SET SCOPE LOOP 


003752 012737 144260 001024 LT16A: #144260,WCS1 SET EXPECTED VALUES UPON COMPLETION 
012737 M #100 ,WCS2 
012737 #150600 ,WOS 
012737 #200,WER 
012737 001700 000776 #1700, UDES SET UNIT DESCRIPTION-NRZ, ns ODD 
;PARITY & PDP11 NORMAL MOD 
005037 001022 CRCFLG CLEAR CRC CORRECTION FLAG. 
005136 PC ,WAMO :D0 A WRAP 0 --~ STEP A 
000001 001022 #1, CRCFLG ;SET CRC ERROR CORRECTION IN PROGRESS 
013737 017334 004304 MOV - ye GET DATA WRITTEN BY WRAP 0 
WITH 
013737 004304 004306 MOV CRCDAT,XORDAT ;GET DATA TO BE MODIFIED 
CRCPAT,XORPAT  ;GET MODIFIER 
CRCPAT,XORDAT ;CLEAR SET BITS IN DATA TO BE MODIFIED 
CRCDAT,XORPAT  ;CLEAR SETTING BITS 
XORPAT,XORDAT ;SET CLEAR BITS IN DATA TO BE MODIFIED 
013737 004306 004304 KORDAT,CRCDAT ;RESTORE MODIFIED DATA 


012737 144260 001024 #144260,WCS1 i SET — VALUES UPON COMPLETION 
#110,WCS2 :OF WRA 
#150600 ,WOS 
001032 #100300 WER 
005364 PC, WAM4 D0 A WRAP 4 =--~ STEP B 


000001 001006 #1, RORVF ;SET TO READ REVERSE 
#144276 ,WCS1 :SET EXPECTED VALUES UPON COMPLETION 
#110,wCS2 
#150600 ,wDS 
001032 #1000 ,WER 
005256 PC, WAMS :D0 A WRAP 3 === STEP C 
004200 000240 
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004202 012737 004260 001024 #4260,WCS1 
001026 #110,WCS2 
001030 #10600,WDS 
001032 #0,WER 
CRCFLG CLEAR CRC CORRECTION IN PROGRESS FLAG 
004737 005364 PC, WAM4 ;GO TO WRAP 4 === STEP D 


006337 004302 CRCPAT ;SELECT NEXT TRACK TO BE ALTERED 
LT16A ; CONTINUE FOR ALL TRACKS 
000461 004302 #401, CRCPAT sRESET BITS TO TRACK 1 
001002 PATRN ;SELECT NEXT PATTERN 


SEQ 0031 


000003 001002 Ue BRANCH IF NOT DONE 


012052 PC, ITER ; ITERATION LOOP 
004276 000137 002152 TSCD2 RETURN TO SCHEDULER 


004302 000000 CRCPAT: . :CONTAINS BITS TO BE ALTERED 

004304 000000 CRCDAT: . CONTAINS DATA TO BE WRITTEN BY WRAP4 
004306 000000 XORDAT: . ; TEMPRARY STORAGE FOR XOR 

004310 000000 XORPAT: . ; TEMPOARY STORAGE FOR XOR 


. 
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;LOGIC TEST 17:CRC CORRECTION - MULTIPLE BAD TRACKS 
THIS TEST CHECKS THAT CRC ERROR CORRECTION IS NOT PERFORMED WHEN 
sMULTIPLE BAD TRACKS ARE DETECTED. 


004312 012737 000002 001002 LTI7: #2,PATRN ;SELECT PATTERN #2 aaraaate 
001001 #1001, CRCPAT sSELECT 2 BAD TRACKS 
#MSLT17,EMADDR ;SET ERROR MESSAGE HEADER 
M #LT17A,SCOLP :SET SCOPE LOOP ADDRESS 
LTI7A: #144260,WCS1 SET EXPECTED VALUES ON COMPLETION 
#100,WCS2 ;OF WRAP 0 BELOW 
#150600 ,wOS 
#200,WER 
000776 #1700, UDES SET UNIT DESCRIPTION 
SET CRC CORRECTION -y! IN PROGRESS 
005136 ;D0 A WRAP 0 --- STEP 


000002 001022 #2,CRCFLG SET CRC CORRECTION IN PROGRESS 
WBUFF ,CRCDAT GET DATA TO BE WRITTEN 
CRCPAT,CRCDAT ;MODIFY DATA TO BE WRITTEN 
#144260 ,WCS1 SET EXPECTED VALUES ON COMPLETION 
#110,WCS2 OF WRAP 4 BELOW 
#150600 ,wOS 

001032 #100300 WER 
005364 PC ,WAM4 ;D0 A WRAP 4 === STEP B 


000001 001006 #1,RORVE SET READ REVERSE FLAG 
001024 #144276 ,WCS1 SET EXPECTED VALUES ON COMPLETION 
001026 #110,WCS2 ;OF WRAP 3 BELOW 
001030 #150600 ,wOS 
001032 #1000 ,WER 
PC, WAMS 700 A WRAP 3 === STEP C 


001024 #144260 ,WCS1 SET EXPECTED VALUES ON COMPLETION 

001026 #110,WCS2 OF WRAP 4 BELOW 

001030 #150600 WS 

001032 #100100 ,WER 
CRCFLG ;CLEAR CRC IN PROGRESS FLAG 
CRCDAT,R1 GET DATA THAT WAS WRITTEN IN STEP B 
#UBUFF ,R3 ;SET START OF WRITE BUFFER 
PC.DATIA :GO SET WRITE BUFFER 

005364 PC, WAM4 :GO0 DO A WRAP 4 === STEP D 


012052 PC, ITER ITERATE TEST 
000137 002152 TSCD2 RETURN TO SCHEDULER 


NOUS WN "Oo OONOufwn—oO”O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWII AAA WA AAW WW 
MRM PPP ot os sO 
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;LOGIC TEST 20: READ REVERSE,NRZ,WRAP 3 
:THIS TEST TESTS THAT A CRC ERROR OCCURS AFTER A READ REVERSE USING 
;WRAP AROUND MODE 3 IN NRZ MODE 


004624 005037 001002 LT20: PATRN SET PATTERN # 0 (ALL 1°S) 
001024 M #144276,WCS1 SET EXPECTED VALUES ON COMPLETION 
#100,WCS2 
#150600 ,WOS 
#100000 ,WER 
#ASLT20,EMADDR ;SET ERROR MESSAGE ADDRESS 
00,UDES SET UNIT DESCRIPTION 
SET SCOPE LOOP ADDRESS 
SET READ REVERSE FLAG 
001020 Aa SET DATA CHECK FLAG TO NOT CHACK DATA 
oW 
RORVF CLEAR READ REVERSE FLAG 
+t B :CLEAR DATA CHECK FLAG 
| 
004736 000137 002152 TSCD2 RETURN TO SCHEDULER 


SEQ 0033 
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004742 


005074 


005076 


005114 


005116 
005120 


005122 


13-JUN- 


005737 


000207 


012701 


000207 


005001 
000770 


012701 


000740 
000100 
016454 


001002 
017334 
001002 


001034 


000202 
017746 


177777 
000202 


125125 


173612 


001001 
001000 


1 3 
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‘PAPA RARARR RRR SAAR RRALALAL EASES A SESE S SESE ESSA S EES SD 


DATA SETUP ROUTINE: 


THIS ROUTINE IS USED TO GENERATE THE DATA PATTERNS 
+ THE gah ‘gen TO BE WRITTEN IS SPECIFIED By: 
TRN ALL 1°S 
ALL 0°S 
ALTERNATE 1°S & O'S (125125) 
ALTERNATING PARITY (177377) 


SRTAAEKHKAKE TATE AAAAAAAEAEAERAAAAAAREAEKEKEEEEREE 


STFLG :SEE IF SINGLE TEST 
DSO :1F NOT: BR 

#100, aSuR 7 SEE 4 “SELECT PATTERN 
DSO : BR 


:1F NOT 
#UMSG3,R4 
REQUEST PATTERN NUMBER 


:PRINT PATTERN NUMBER 
GET ADDRESS OF PATRN ENTRY 
SET SIZE OF ENTRY 
:SET UPPER LIMIT 
:SET LOWER LIMIT 
:GO GET PATTERN NUMBER 
#1, WPGFL+1 ;SET FLAG 
PATRN,WPGFL ;SET PATTERN NUMBER 
#UBUFF ,R3 :R3 = ADDRS OF WRITE BUFFER 
PATRN,R1 7R1 = PATTERN SELECTOR 
R1 MAKE PATTERN SELECTOR EVEN 
PC,@DATBL(R1)  ;GO GENERATE PATTERN 
#202 ,R2 sR2=BUFFER SIZE +2 
#RBUFF ,R1 zR1=READ DATA START 
1 CLEAR BUFFER 
SEE IF DONE ALL 
3 A BR 


;RI=DATA 
zR2=WORD COUNT +2 
LOAD BUFFER 

SEE IF DONE 
:1F NOT: BR 
;RETURN TO CALLER 


TALL ZEROSteeeeeeeee 


CLR R1 ;R1=DATA 
BR DATIA LOAD BUFFER 


sONE/ZERO IN ALTERNATING CHARACTERS*teeeeeee 
MOV #125125,R1 sRI=DATA 


SEQ 0034 
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1419 005126 000765 
1420 


005130 012701 177377 DATS: 


005134 000762 


BR DATIA ;LOAD BUFFER 
ALTERNATING PARITY CHARACTERStteteneee 


MOV #177377,R1 ;R1=ALTERNATING PARITY DATA 
BR DATIA ;GO LOAD BUFFER 


SEQ 0035 
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005136 


005172 
005176 


005202 
005210 


005212 


005252 


005256 


005420 
005424 


13-JUN-78 


012737 


000137 


012737 
000755 


012737 


000137 


012737 


000137 


TEST=PART II 


09:59 


000006 


006010 


000010 


000012 


006010 


000014 
000070 
017746 
017334 
001006 


000376 
000377 
000076 
000020 


001010 


005430 
006010 


00003¢ 


000750 
000752 


000760 
000762 


000750 


000750 
000752 


000760 
000762 


000750 
000752 
000760 
000756 


000760 
000756 
000752 
000776 


000756 


000750 
000752 


000760 
000762 
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WRAP AROUND MODE 0 GLOBAL *tte* 


WAMO: MOV #6,WAM ;SET WAM NUMBER 
WAMO1: MOV #60,FUN 
CLR DATC 


MOV #WBUFF ,DATAD SET BUFFER ADDRESS 

MOV #RBUFF ,RDAD SET POINTER TO READ BUFFER 
JSR PC, SETUP :GO SET UP 

JMP EXEC 


WRAP AROUND MODE 1 WRITE BUFFERSteeneeeee 


WAM1: MOV #10, WAM 
BR WAMO1 


WRAP AROUND MODE 2 BIT FIDDLER WRITEttexeeneee 


WAM2: MOV #12,WAM 
MOV ot Pa 


ATC 
MOV #WBUFF ,DATAD 
MOV #RBUFF ,RDAD 
WAM2A: JSR PC, SETUP 


JMP EXEC 

WRAP AROUND MODE 3 BIT FIDDLER READteteenenee 
WAM3: MOV #14,WAM ;SET WAM NUMBER 

MOV #70,FUN :SET FUNCTION 


MOV #RBUFF ,DATAD SET BUFFER ADDRESS 
MOV 2 eh tin :SET POINTER TO WRITE BUFFER 


WAM3A 
ADD #376, DATAD . 
ADD #377 ,WTAD 
MOV #76,FUN SET READ REVERSE CODE 


WAM3A: BIT #20,UDES 
BEQ WAM3B 
MOV RCOP WIAD 
WAM3B: JSR PC, SETUP :GO SET UP 
JMP EXEC :GO EXECUTE 
WRAP AROUND MODE 4 CRC CORRECTION 
sCALL: JSR PC ,WAM4 
WAM4: MOV #30, WAM :SET MAINTENANCE MODE FUNCTION = WRAP 4 
a + Pa SET TAPE FUNCTION = WRITE FWD 


MOV #CRCDAT,DATAD ;SET ADRS OF WRITE BUFFER 
MOV #RBUFF ,RDAD ;SET READ BUFFER ADDRESS 
JSR PC, SETUP :GO SETUP REGISTERS 

JMP EXEC :GO EXECUTE 


SEQ 0036 


L # 
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REGISTER SETUP ROUTINEtette 


005430 005737 001022 : CRCFLG :D0 NOT DO DATA SETUP NOR INIT 
1$ :1F CRC CORRECTION IS IN PROGRESS 
000030 000750 . D0 NOT INIT IF DOING WAM 4 --- STEP D 


2 
000011 173034 : D0 DRIVE CLEAR IF WAM4---STEP D 
000740 : ; SEE 4 SINGLE TEST 
:1f NOT: BR 


001000 iSEE IF HAVE SELECTED PATTERN 

004742 SETO: :GO DO DATA SETUP 
004737 012122 : PC,INIT INIT CONTROLLER, SELECT UNIT & DRIVE 

;LOAD SLAVE DESC AND MOVE OFF BOT 

012777 177400 173006 : #-400,aFC sSET FC=WCX2 

000020 000776 #20,UDES SEE IF CORE DUMP 

SET2 :1F NOT: BR 

177000 172770 #-1000,aFC SET FC=WCX4 

177600 : #-200,awCc SET we 

000760 DATAD,@BA SET BUS ADDRESS 

010000 172750 + paar sty me THERE 
020000 173010 ++ a pana 7 SEE Ld ap ERRORS 


c1F ON 
016475 #WMSG4 ,R4 
012752 J PC, TTOUT PRINT NON-EXISTANT DRIVE 


100000 172770 : #100000,aSWR © :SEE IF HALT ON ERROR 
B SPO SIF NOT: BR 


005476 : SET1 ;RESETUP 
000014 000750 : #14,WAM SEE IF WAM 3 
SP1B :1F NOT: BR 
173132 000754 @WTAD,DATC GET FIRST CHAR 
000754 1 aati 
000754 #200, DATC SET PARITY 
001006 RORVF +o ba READ REVERSE 


:IF : BR 
000756 ‘ DECREMENT POINTER 


B 
000756 : WTAD BUMP POINTER 
000020 000776 B SEE IF CORE DUMP 
SP1B :1F NOT: BR 


000756 I ; BUMP POINTER AGAIN 
172632 : SET UNIT DESCRIPTION (DEN,PAR,FMT) 
B #1, aMR SET MAINT MODE 
SET WAM 
SET DATA 
SET FUNCTION 
040000 172554 #40000, ads sASSURE NO ERROR 
SP3 ; IF ERROR: BR 


PC ;RETUR 
020000 172606 : #20000 ,aSwR i SEE IF PRINT ERRORS 
005762 SP4 IF NOT: BR 


MMAMAMMAMAVIVI MU 
PRD IRD IND et ek et et et ot os ot ot 
MSC O@Bnauvfwn—-o 
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005764 


012704 
004737 
032777 
001401 
000000 
000207 


016436 
012752 
100000 


172566 = SP4: 


SP5: 


m 3 
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#WASG2,R4 

PC, TTOUT PRINT SETUP ERROR 

#100000,aSwR ;SEE IF HALT ON ERROR 
SP5 71F NOT: BR 


PC ; RETURN 


SEQ 0038 
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sEXECUTE WAM ROUTINEt*t#t* 
006010 000240 
000040 172512 #40,amR 
Ex0 gASSURE MAINT CLOCK IS ZERO 
000040 172502 #40,aMR ;1F NOT: CLEAR IT 
000010 000750 : a :SEE IF WAM 1 OR 2 OR 3 


006454 : Exw2 360 DO WAM 0 
000030 000750 : ane ;BRANCH iF WRAP AROUND MODE 4 


000001 172424 : a ;SET GO BIT 
000002 #2,R1 SET DELAY 
100000 172442 : #100000 ,aTCc ;SEE IF ALPHA 

BE EX2 :1F SO: BR 

; AWAIT ALPHA 

172450 
000400 SET NUMBER OF CLKS 
000020 000776 3 soot ee IF CORE DUMP 


EX ;1F NOT: BR 
001000 :SET CLOCKS LWCX4 
000014 000750 3 


1$ 
002000 000776 +1) amt 
000040 172359 pe #4 ,@MR CLOCK UP 


002000 000776 : #2000, UDES sSEE IF PE 
tie ;1F NOT PE: BR 


000246 ~ £246.01 7SET TO ALLOW FOR PRE/POSTAMBLE 
x 

000010 2 sADD CLOCKS FOR CRC AND LRC 
000014 000750 : 7SEE IF WAM 3 

EXxS z1F NOT: BR 
172530 
177400 
001006 sSEE IF REVERSE 
;1F NOT: BR 
000756 [DEC POINTER 


00075¢ : WTAD 
000020 8 yah ;SEE IF CORE DUMP 


z1F NOT: BR 
000756 BUMP POINTER 
172464 zSEE IF END 


—x58 TIF WOT: BR 
000010 000756 ;RESTORE POINTER 
000040 172224 : #40, anR ;CLOCK UP 
172220 
177600 


aAR ,R2 READ AR 
#177600,R2 [MASK OUT DATA 





mt 
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006450 


000137 


177000 


000200 
172166 
000040 
000040 
172144 
000010 


172354 
000762 


172342 
000762 


000040 


000040 
011626 


000776 


172074 
172064 


;POSITION DATA 
;SEE IF PATTERN 3 
;1F SO: BR 


;SET ODD PARITY 
;LOAD NEW DATA 
CLOCK DOWN AND LOAD NEW DATA 


CLOCK UP 
;CLOCK DOWN 
;GET MR 


:SEE IF EVEN PAR 
;I1F NOT: BR 


;PUT CHAR IN CORE 


>SEE IF DONE CLKS 
;1F NOT: BR 
;CLOCK UP? 

3s IF NOT: BR 
;CLOCK DOWN 

3G0 DO EOR 


SEQ 0040 
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SEXECUTE WAM Oeeeeee 


006454 000240 
006642 000670 
000200 
002000 000776 


000100 
017746 
000030 000750 


000010 171772 
171754 


000040 171766 


171760 
000040 171752 


171744 


#EXW2H,RTRN ;SET INTERRUPT RETURN ADDRESS 
#200,R1 ;SET NUMBER OF CLOCKS = FC/2 
#2000 ,UDES sSEE IF PE 

EXW2A :1F NOT: BR 
#100,R1 ELSE SET CLKS = FC/4 
#RBUFF ,R2 ;SET BUFFER ADDRESS 
;BRANCH IF NOT WRAP 4 


;SET INHIBIT BUS ADDRESS INCREMENT 
SET WRITE COMMAND AND GO 
s;ALLOW INTERRUPT 


;AWAIT CLOCK UP 

@MR,(R2)+ 3GET DATA 
#40,amR 
Exw2c AWAIT CLOCK DOWN 
@MR,(R2)+ GET DATA 
R1 ;SEE IF DONE ALL 

Exw2B :1F NOT: BR 
000003 : #3,R1 

RO SET DELAY 


RO 

EXwW2F 

R1 

;DELAY 


“SEE IF ERROR PRINT 
SIF NOT: BR 


PRINT NO INTERUPT 
SEE IF HALT ON ERROR 
;1F NOT: BR 


020000 171750 


016700 
012752 
171732 


EXW2F 
#20000 ,aSwR 
EXW2G 
#WMSG24 ,R4 


017746 :GET START OF READ BUFFER 
000400 00,R0 :SET SIZE 


000010 000776 SEE IF EVEN PAR 
:1F NOT: BR 


SAVE PAR + DATA 
ASSEMBLE DATA IN BYTES 


CONTINUE FOR ALL 
;SEE IF STATUS CHECK 
;1F NOT: BR 


B 
ExXwW2J0: 
EXW2J1: : 


000200 171656 


000240 


006742 
000400 
007332 


171640 


2k 
PC ,WSTCK 
#400, aSWR 
EXW2Xx 
PC,DCHK 


:IF NOT: 
ELSE GO CHECK STATUS 


TF wot IF A CHECK 
sELSE "G0 CHECK DATA 
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1680 006740 000207 RTS PC sEXIT 
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WRAP AROUND STATUS CHECK ROUTINEtteeneene 


006742 000240 : 
000772 C SERFL CLEAR ERROR FLAG 
000620 HORFL ;CLEAR HEADER FLAG 
014633 000622 WMSLT2,EMADDR ;SEE If TEST 2 


:1F SO: BR 
015523 000622 mee 3 7 SEE nia oy 15 


001000 : _ 7 SEE alts SINGLE PATTERN 


:1F BR 
000003 001000 #3 ,WPGFL : SEE 4 PATTERN 3 
5$ :1F NOT: BR 
4$ sELSE GO DO EXPT CHANGE 
000003 001002 : — SEE IF PATTERN 3 


5 :1F NOT: BR 
140000 001024 : #140000 ,WCS1 
001030 #140000 ,WOS 
001032 #100,WER SET EXPT PARITY ERROR 
000672 : #WMSG6,ERADD SET CODE=CS1 
aci,R2 :GET RCVD CS1 
WCS1,R5 GET EXPT CS1 
PC ,WSTG GO CHK 
000672 #WASG6D.ERADD ;SET CODE=CS2 
acs,R2 ;SET RCVD CS2 
GET EXPT CS2 
3+ he NUMBER IN EXPT CS2 


P 

000672 TWASC6E, ERADD ;SET CODE=DS 
a0S,R2 :SET RCVD DS 
WOS RS 


PC,WSTG 


000672 #UMSGOF .ERADD  :SET CODE=ER 
171352 @ER,R2 :GET RCVD ER 


001032 WER ,RS :GET _ ER 
007206 PC .WSTG :GO CHK 
000772 : SEE ve ANY ERRORS 


z1f NOT: BR 
171370 SEE IF HALT ON ERROR 
:1F NOT: BR 


; CONTINUE 
;SEE IF EXPT=RCVD 
:1F SO: BR ' 
000772 SERFL SET ERROR FLAG 
020000 171342 SEE IF PRINT ERRORS 
WSTX z1F NOT: BR 
000620 SEE IF _ HEADER 


:1F $0: 
000622 EMADDR ,R4 
012752 PC, TTOUT ;PRINT TEST HEADER 
007246 016664 #WMSG23,R4 


MO OCONOULWN—oO 


SN NNN NNN 
NNR et es 


~“ 
Mmm 
aw 
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007252 004737 012752 J PC, TTOUT PRINT STATUS TAG 
000620 wWSTGO: #1, HORFL ;SET HEADER FLAG 
M ERADD ,R4 
PC, TTOUT PRINT CODE 
#ASG12,R4 
012752 0 as PRINT EXPT TAG 
013100 PC,OCTP PRINT EXPT STATUS 
014232 #ASG13,R4 
012752 +S ae PRINT RCVD TAG 
013100 J PC,OCTP PRINT RCVD STATUS 
007330 000207 : PC ; RETURN 
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DATA CHECK ROUTINE tttee 


Se eer 000240 : 
001022 T CRCFLG :D0 NOT DO A DATA CHACK 

2$ :1F CRC CORRECTION IN PROGRESS 
010172 : DCHKX1 


001020 : + aes BRANCH IF DATA IS NOT TO BE CHECKED 
000620 HORFL ;CLEAR HEADER FLAG 
000766 DERFL 7CLEAR DATA ERROR FLAG 
000774 CRCNT ;CLEAR CHAR CNTR 
000010 000776 #10,UDES SEE IF EVEN PARITY 

DCHKAO :1F NOT: BR 
010214 DCHKE ELSE GO “ys EVEN 
000010 000750 OCHKAO: 4 : FW 

HK 


002000 000776 #2000, UDES 
DCHKA 
010716 


177400 : SET NUMBER OF CHARACTERS 
000012 000750 
71f NOT WRAP 2: BR 


000020 000776 
:1F NOT CORE DUMP: BR 
177000 


000030 000750 DCHKAI: + BRANCH IF WRAP 4 


000006 000750 41 bd — 0 
$ NOT: 
177744 1$: -RO ;SET NUMBER OF CHARACTERS READ 
017344 ;SET POINTER 
000766 ;CLEAR DATA ERROR FLAG 


000012 000750 DCHKA2: SEE IF WRAP 2 
002000 000776 


177653 POINT TO START OF DATA 
000764 SET WRAP 2 FLAG 
GO CHECK DATA 
PC. WIDCHK :GO CHECK WRAP 1 DATA 
W2FLG 
DCHKX 
DCHKB: DERFL 
#WBUFF RI SET GOOD POINTER 
DCHKBO: SET READ POINTER 
SEE IF CORE DUMP 
c1F NOT: BR 
SEE IF WAM 2 


TIF NOT: BR 
001002 ; iSEE IF Lf PATTERN 0 
001056 SET CORE DUMP PATTERN 0 


00404 B CHKO G0 CHECK DAT 
012701 001044 : #WCOP2,R1 SET CORE DUMP WRITE PATTERN 2 
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007644 


010142 
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000401 


001242 


TEST=PART I] MACY11 30(1046) 


09:59 
DCHKD: 
DCHKO: 

020000 170706 

000620 

000622 

012752 

000766 


016632 


J 
000620 DCHKIA: 
000766 mM 


012752 
013326 
016651 
012752 
013326 
000764 
000020 000776 


000012 000750 


000010 


8 
DCHK2A: 
DCHK2B: 
00003¢ 000750 


000006 000750 
000010 


000774 
000400 170432 


H 4 
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DCHKO :GO CHECK DATA 

ard (R2) SEE IF DATA OK 

DCH :1F SO: BR 

#20000, ,@SWR te a ERRORS 


F NOT 
HORFL SEE IF DONE HEADER 
DCHK1 IF SO: BR 


EMADDR ,R4 
;PRINT HEADER 
SEE IF FIRST ERROR 
:1F NOT: BR 
PRINT DATA ERROR TAG 
PRINT PATRN TAG 
PRINT PATTERN NUMBER 
SET HEADER FLAG 
SET DATA ERROR FLAG 
PRINT CHARACTER NUMBER TAG 
PRINT CHARACTER NUMBER 
PRINT GOOD TAG 
PRINT GOOD DATA 
:PRINT BAD TAG 


;PRINT BAD DATA 
;SEE IF WRAP 2 NRZ 
;1F SO: BR 


;BUMP POINTER 
+SEE et = DUMP 


OINTER 
:SEE IF END OF PATTERN 
:1F NOT: BR 

;RESET POINTER TO START OF PATTERN 
CONTINUE CHECK 


BRANCH IF WAM 4 


SEE IF WAM 0 
:1F NOT: BR 

;BUMP POINTER 

;BUMP CHAR CNTR 

SEE IF CONT DATA CHK 
;1F NOT: BR 

SEE IF DONE 

;1F NOT: BR 


SEQ 0046 
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Hi ber 005737 000764 


170410 SEE IF HALT ON ERROR 
B :1F NOT: BR 
000766 :SEE IF DATA ERROR OCCURED 
IF NOT: BR 


H 
000774 DCHKX1: CLEAR CHAR CNTR 
000620 C > CLEAR HEADER FLAG 
000766 ;CLEAR DATA ERROR FLAG 
000770 ;CLEAR PREAMBLE FLAG 
010212 000207 7 RETURN 
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EVEN PARITY DATA CHECKtetee 


010214 000240 D : 

000006 000750 — +o Ss ¥ 0 

177744 #-34,R0 SET NUMBER OF CHARACTERS READ 
017344 es SET POINTER 


177400 : #-400,R0 SET NUMBER OF CHARACTERS 

017334 #WBUFF RI sRI=START OF WRITE BUFFER 

017746 #RBUFF ,R2 sR2=START OF READ BUFFER 
:GET EXPT DATA 


R3 
000010 SET NUMBER OF BITS 
000001 : ;SEE IF ONE BIT 
IF NOT: BR 
;COUNT ONE BITS FOR PARITY CHECK 
SEE IF DONE 
:1F SO: BR 
:POINT TO NEXT BIT 


(R1),R5 GET EXPT DATA 
177400 + ieee MASK DATA FIELD 


DCKE4 :1F NO ONE BITS SET: BR 
100020 #100020,R5 
DCKES 
000001 2 aT eet: = NUMBER OF ONE BITS 
100000 #100000 ,R5 SET EVEN PARITY BIT=1 
077400 : #77400, (R2) MASK DATA FIELD 
R5, sr ;SEE IF DATA + PARITY GOOD 
DCKE10 :1F SO: BR 
020000 170212 #20000, aSwWR SEE IF ERROR PRINT 
DCKE10 :1F NOT: BR 
000620 HORFL sSEE IF "DONE HEADER 
DCKE6 IF SO: BR 
000622 EMADDR ,R4 
012752 PRINT HEADER 
000766 : :SEE IF — BAD CHAR 


31F NOT 
016632 
;PRINT BAD DATA TAG 


PRINT PATTERN TAG 
013100 PC,OCTP PRINT PATTERN NUMBER 


DCKE7: 
000001 000766 #1,DERFL 7SET DATA ERROR FLAG 
000620 #1, HDRFL 7SET HEADER FLAG 
#WMSG21,R4 
PC, TTOUT 7PRINT CHAR NUMBER TAG 
CRCNT,R3 
010466 004737 013100 PC,OCTP sORINT CHAR NUMBER 
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010472 012704 016644 #WMSG17,R4 
012752 pC, T TOUT :PRINT GOOD DATA TAG 
013326 PC .DOUT :PRINT EXPT DATA 
RS_R3 


010622 PC.DCKEP :GO PRINT PARITY BIT 


016651 #WMSG20,R4 

012752 PC, TTOUT :PRINT BAD TAG 
(R2) ,R3 

013326 PC ,DOUT PRINT BAD DATA 
(R2),R3 

010622 PC ,DCKEP :GO PRINT PARITY BIT 


DCKE10: 
000006 000750 SEE IF WRAP 0 
1$ 7;1F NOT: BR 
000010 :BUMP POINTER 
18: :BUMP POINTERS 
000774 CRCN ;BUMP CHAR CNTR 
000400 167770 #400 ,aSWR SEE IF CONTINUE DATA CHECK 
OCKE11 :1F SO: BR 
010154 DCHKX :GO TO END OF DATA CHECK 
DCKE11: RO SEE IF DONE 
DCKE12 :1F SO: BR 
010254 DCKEO ELSE CONTINUE 
010154 re DCHKX :GO TO END OF DATA CHECK 
000240 000614 #240,T0B 
013052 PC,T0G 4g 
000260 000614 #260,T0B SET PAR=0 
R3 : SEE IF ROARITY REALLY=0 
DCKEPO :1F SO: BR 
000614 TOB ELSE SET TO 1 
013052 DCKEPO: PC,T0G :PRINT PARITY BIT 
010660 000207 PC ; RETURN 
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CZTUPA.P11 13-JUN-78 SEQ 0050 


;PREAMBLE/POSTAMBLE CHECKttrtete 


012700 000051 #51,R0 SET SIZE OF POSTAMBLE 
012701 017212 M #POST,R1 SET POINTER TO POSTAMBLE 
005037 000620 HORFL CLEAR HEADER FLAG 
005037 000774 CRCNT :CLEAR CHAR CNTR 
005037 000766 DERFL CLEAR DATA ERROR FLAG 
000240 
000240 

010712 000137 010734 PDO :GO CHECK POSTAMPLE 


010716 012700 000051 #51,R0 SET SIZE OF PREAMBLE 

017070 #PRE,R1 :SET POINTER TO PREAMBLE 

017746 #RBUFF ,R2 ;SET POINTER TO START OF READ BUFFER 
(R1)+,(R2)+ ;BUMP ADDRESS POINTERS 
(R1),(R2) CHECK DATA 
PO1 :1F NOT GOOD: BR 

000001 000001 1(R1),1(R2) COMPARE COMPLIMENT BYTE 
P :1F GOOD: BR 

020000 167612 : ++ eae eames :SEE IF — INHIBIT 


:IF SO: B 
000620 HDRFL SEE IF DONE HEADER 
PD4 :1F SO: BR 
000622 EMADDR ,R4 
012752 PC, TTOUT PRINT TEST HEADER 
000770 PREFL SEE IF PREAMBLE CHECK 


PD2 IF NOT: BR 
017003 + pahilaate ;SET POSTAMBLE HEADER 


D3 
016765 : #WMSG28 ,R4 SET PREAMBLE HEADER 
: PRINT HEADER 


PRINT CHAR NUMBER TAG 
PC,OCTP PRINT CHAR NUMBER 
#WMSG17,R4 
:PRINT GOOD TAG 
PRINT GOOD CHAR 
000614 
013052 
013326 PC ,DOUT PRINT COMPLEMENT 
#WMSG20,R4 
:PRINT BAD TAG 
PRINT BAD CHAR 
000614 
013052 
013326 PC ,DOUT ;PRINT COMPLEMENT 
(R1)+,(R2)+ :BUMP ADDRESS POINTERS 
000774 RCNT 


;BUMP CHAR NUMBER 
005300 0 ;SEE IF DONE 


MO BS eWND ao 
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011156 001266 


7 IF NOT: BR 

000770 SEE IF PREAMBLE 
:1F SO: BR 

010154 :GO TO EXIT ROUTINE 
;SET PREAMBLE FLAG 
;CLEAR HEADER FLAG 
;CLEAR CHAR CNTR 
;CLEAR DATA ERROR FLAG 

011212 000137 011216 WIDCHK :GO CHECK WRAP 1 DATA 
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011216 012700 


004737 
005237 


177400 


000764 


000764 


000001 
020000 
000620 
000622 


012752 


000764 


013326 
000240 
013052 


01332¢ 


013052 


013326 
000766 


N 4 
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WAM 1 PE DATA CHECKtetee 


WIDCHK: #-400,R0 ;SET NUMBER OF CHAR TO CHECK 
4 #WBUFF,R1 ;SET WRITE DATA POINTER 
#RBUFF ,R2 ;SET READ DATA POINTER 
sPOINT TO START OF DATA 
;SEE IF WRAP 2 
s1F NOT WAM 2: BR 
sRESET POINTER 


CHECK DATA 
:1F NOT GOOD:BR 
SEE IF WRAP 2 
:I1F SO: BR 
;COMPLIMENT EXPT DATA 
> CHECK COMPLIMENT DATA 
B 3 :1F GOOD: BR 
167270 :SEE IF PRINT INHIBIT 
3 :1F SO: BR 
:SEE IF — HEADER 


:1F SO: B 

EMADDR,R4 

PC, TTOUT PRINT TEST HEADER 

#WASG16,R4 

PC, TTOUT PRINT BAD DATA TAG 

#WMSG32,R4 

PC, TTOUT PRINT PATRN TAG 

PATRN,R3 

J PC,OCTP ;PRINT PATTERN NUMBER 

000620 wiD2: - #1, HDRFL SET HEADER FLAG 


#WMSG21,R4 

s;PRINT CHAR NUMBER TAG 
PC,OCTP ;PRINT CHAR NUMBER 
#WMSG17,R4 

;PRNT GOOD TAG 

:GET GOOD CHAR 

;SEE IF WRAP 2 

;1F SO: BR 

sELSE COMPLIMENT CHAR 

;PRINT CHARACTER 

7 SPACE 

PRINT CHAR 

;PRINT BAD TAG 

;PRINT BAD CHAR 

: SPACE 


;PRINT CHAR 
SET DATA ERROR FLAG 


000614 


DERFL 


SEQ 0052 
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122122 


000137 


000240 
0 


000207 


000774 
000764 


010662 


011246 


000050 
017070 


177400 


017212 
000050 
000377 
177400 
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w1D3: (R1)+#,(R2)¢ 
T 2) 


wiD4: 


WIDSA: 
WiDS: 


#50,R0 
#PRE,R1 


(R1)+ 
#177400, (R1)+ 
RO 

1$ 

#POST,R1 
#50,R0 
#377,(R1)+ 
#177400, (R1)+ 
RO 
2$ 
PC 


;BUMP ADDRESS 
;BUMP ADDRESS 
;BUMP CHAR CNTR 


;SEE IF WRAP 2 

;1F NOT: BR 

sELSE RETURN 

3GO CHECK POSTAMBLE 


SET SIZE OF PREAMBLE 


SET ADDRESS OF PRE 
sFILL TABLE 

7SEE IF DONE 

IF NOT: BR 

;SET ADDRESS OF POST 
SET SIZE OF POST 
;SET SYNC CHAR 
FILL TABLE 

;SEE IF DONE 

:1F NOT: BR 

; RETURN 


SEQ 0053 





: 3 
TMO3-TU4S CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 54 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0054 


END OF RECORD FORCE SUBROUTINE**#+*** 


011622 005237 000676 : SET WRAP FLAG 
: :GET MAINT REG 

CLEAR CURRENT OP CODE 

SET EOR CLEAR OP CODE 


6 :00 EOR 
000037 166660 f sCLEAR EOR AND MM 


000002 M 
000001 166620 EORP1: SEE IF GO GONE 
B :1F SO: BR 


AWAIT GO RESET 


EORP1 
020000 166660 #20000, aSwR ;SEE IF ERROR PRINT INHIBIT 
EORP2 ;1F SO: BR 


il : B 

000620 HDRFL ;SEE IF DONE HEADER 

EORP1A :I1F SO: BR 

000622 EMADOR ,R4 

012752 J PC, TTOUT ;PRINT HEADER 

017022 EORP1A: #WMSG31,R4 

012752 J ;PRINT EOR GO BIT ERROR 

166624 ;SEE IF HALT ON ERROR 
:1F NOT: BR 


000676 T 7SEE IF WAM 

E 3;1F NOT: BR 
000200 166602 #200,aSWR ;SEE IF STATUS CHECK 
EORP3 IF NOT: BR 


006742 - J PC ,WSTCK SELSE GO CHECK STATUS 

000400 166564 . Ss #400, aSwR :SEE IF DATA CHECK 
EORPX [IF NOT: BR 

007332 J PC, DCHK SELSE GO CHECK DATA 


000676 , TEMP2 :CLEAR FLAG 
012020 000207 PC : RETURN 
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SCOPE LOOP ON ERROR SUBROUTINEttetseenee 


012022 000240 S : 
040000 166536 B ce patene + a ON ERROR 


PC sELSE EXIT 
(SP)+ RESET STACK 


012046 000177 166640 aScoLP ;LOOP ON ERROR 
TEST ITERATION SUBROUTINE tteeeeeeee 


012052 032777 004000 166510 ITER: : ee 41 i —— 
000702 1$: ITCNT :CLEAR ITERATION COUNTER 
PC sELSE EXIT 
001016 2$: a@#PCNTR :D0 SINGLE SUBTEST ITERATION 
1$ ON FIRST PASS 
000702 ITCNT >BUMP COUNTER 
000702 000606 a" +SEE If DONE ALL 


(SP)+ 3 ACK 
166574 @ITRLP,RO ;SET ITERATION POINTER 
012120 000110 (RO) :GO ITERATE 
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SINITIALIZE SUBROUTINEtteeteeere 


012122 


012274 


012777 


000207 


000040 


001400 
000040 


000040 


000007 
000200 


020000 


000776 
000002 


000025 
000200 


000011 


166370 
166362 
166376 


166332 


166320 


166276 
166302 


166272 


166302 
166254 


166232 
166236 


166214 


#40,aCs 
DRVN,aCcS 
SLVN,aTC 
UDES,-(SP) 


#174377, (SP) 


#1400, (SP)+ 
1$ 

#40,aDS 

4$ 

2$ 

#40,aDS 

4$ 

#7,aC1 
#200,aDS 
208 
#20000,a0S 
3$ 

+h Tt ge 


e 


#25,aC1 
#200,a0S 


5$ 
#11,aC1 
PC 


: INIT 

: SELECT DRIVE 

SELECT SLAVE 

GET TEST'S UNIT DESCRIPTION 
;CLEAR ALL BUT DENSITY SELECT BITS 
BRANCH IF NOT NRZ (800 BPI) 


BRANCH IF SLAVE IS IN NRZ MODE 
; (PES = 0) 


:GO CHANGE DENSITY 

BRANCH IF SLAVE IS IN PE MODE 
(PES = 1) 

REWIND SLAVE 

WAIT FOR READY 


;LOOP UNTIL REWIND IS COMPLETE 
(PIP = 0) 


:LOAD UNIT DESCRIPTION 
[BRANCH IF NOT AT BOT 


ERASE TO GET OFF BOT 
;LOOP UNTIL DONE 


:D0 A DRIVE CLEAR 
RETURN TO CALLER 


:MAG TAPE INTERRUPT HANDLER*ttteerene 
012276 000240 NOP 
012300 013716 000670 MOV RTRN, (SP) :SET RETURN TO (RTRN) 
012304 000002 RTI ; RETURN 


sTTY INTERRUPT HANDLERtteeeenere 


012306 


012410 


017746 


001005 


166262 
000200 
000003 
001262 
000200 
000001 
000176 


177570 
0 


000007 


000570 
000570 


aTKB,-(SP) 
#200, (SP) 


:GET CHARACTER 
;CLEAR PARITY BIT 


oye tare sBRANCH IF NOT CONTROL C 


CHNFLG 
1$ 


a#200 
#1, (SP) 
2$ 


#SWREG, SWR 
3$ 


#177570,SWR 
PC,.SAVE 
#MSG63,R4 
PC, TTOUT 
PC,.RESTORE 
#7, (SP) 

4$ 


INHIBIT C IF CHAIN MODE 
RESTART PROGRAM 

;BRANCH IF NOT A 

BRANCH IF HARDWARE SWR INVOKED 
: INVOKE HARDWARE SWR 

SAVE REGISTERS ON THE STACK 

; TYPE "HARDWARE SWR IN USE' 


RESTORE REGISTERS 
;BRANCH IF NOT G 
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#SWREG, SWR ; INVOKE SOFTWARE SWR 


2245 012412 012737 000176 000570 3$: MOV ’ 
13532 PC,GTSWR GET SOFTWARE SWITCHES 


012420 004737 0 JSR ’ 
012424 005726 4$: 181 (SP)+ :POP CHARACTER OFF THE STACK 
RTI ; RETURN 


012426 000002 
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SRRREAAAE TEAR AE EERE A AAA E EERE REAR REKEREKEREKERREEE 


; TTY ENTRY SUBROUTINE: 


: THIS SUBROUTINE IS USED BY THE TEST CONDITION 
sENTRY ROUTINE TO READ THE RESPONSE ENTERED 
;AT THE TTY AND CHECK THEM FOR LEGALITY AND 
LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
3(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
; THE CALLING ROUTINE. 

:1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
:A QUESTION MARK IS TYPED (?) AND THE RESPONSE 
MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
CARRIAGE RETURN 


FURR AREA AERA AER AREA AERA AEEARERAAAKEKAEKEKEE 


012430 010146 : R1,-(SP) SAVE CHAR COUNT 
012432 : (SP) ,R1 sRESET CHAR COUNT (FOR U) 
012434 000674 TEMP! CLEAR FIRST CHARACTER FLAG 
012440 RO 

012710 : PC,TTIN :GO READ CHARACTER 

000003 000616 + ala :BRANCH IF NOT C 


000200 a#200 ;RESTART AT 200 
000015 000616 : ow :SEE IF CR 


NOT: BR 
000674 TEMP1 ;SEE IF FIRST CHARACTER 
9$ :1F SO: BR 
6$ ELSE GO LOAD VALUE 
000025 000616 : + :BRANCH IF NOT CONTROL U 


014465 #ASG59,R4 ; TYPE<CR><LF> 
012752 4F TTOUT 


000177 000616 : 44 BRANCH IF NOT *RUBOUT’ 
sREMOVE LAST TYPED CHAR 


RO 
014467 #MSG60,R4 sTWwE * * 


012752 PC, TTOUT 
R1 :DECREMENT CHAR RECEIVED COUNT 
1$ GET NEXT CHAR 

00006C 000616 : #60,TIB ;SEE IF CHAR IS LESS THAN 0 
4$ :1F NOT: BR 

012670 ELSE GO TO ERROR 

000070 000616 : 7 :SEE IF — IS GREATER THAN 7 


012670 TO ERROR 
000674 : : SET FIRST CHARACTER FLAG 


:SHIFT 3 LEFT 
012622 006300 
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012624 042737 177770 000616 
000616 
012670 
012670 


012666 000207 


H 
MACY11 30(1046) 13-JUN-78 


#177770,TI1B 
T 0 


1$ 
RO,R2 
$ 


5 
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STRIP ASCII 
;LOAD CHARACTER 
SEE IF DONE 
:1F NOT: BR 
SEE IF EXCEEDED MAXIMUM LIMIT 
:1F NOT: BR 

ZELSE GO TO ERROR 

;SEE IF BELOW MINIMUM LIMIT 

:1F NOT: BR 
sELSE GO TO ERROR 

:LOAD VALUE 

<47F aes COUNT OFF STACK 

sEXI 


SEQ 0059 
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s TTY ENTRY ERROR SUBROUTINE tt teteeeee 


012670 012704 014342 : #MSG40,R4 

004737 012752 J :PRINT? 

005726 ;POP CHAR COUNT OFF STACK 

162716 000020 RESET SP TO START OF VALUE ROUTINE 
012706 000207 REDO VALUE ENTRY 


TTY READ SUBROUTINE ttetteneee 


012710 005277 165656 
165652 


165646 000616 aikB,TIB 
000200 000616 #200,TIB 
000616 000614 TI1B,T0B :MOVE CHAR TO TTY OUPUT BFR 
013052 PC,TOG ECHO CHARACTER 
012750 000207 PC 


OUIPUT SUBROUTINE *ttererenere 


012752 112437 000614 : (R4)+,T0B 
000043 000614 C 


000045 000614 
013052 
000015 000614 
013052 
000004 
000614 
013052 

D0 FILLERS 
000012 000614 
013052 
165520 

TOG 
000614 165512 TOB,aTPB 
013066 000207 PC 


sOCTAL OUTPUT SUBROUTINEtttereereree 


013070 012737 000001 013324 OCTPE: 


013324 OCTP: CLEAR FLAG FOR LEADING ZERO 
OCTPE1: SEE IF NUMBER IS ZERO 
:1F NOT ZERO: BR 
013324 :SEE IF PRINT ALL 0 


OcTPO :1F SO: BR 
013304 PC,OCTPG1 ELSE PRINT ZERO 
000137 013246 OCTP3 ;SPACE AND EXIT 
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013126 032704 100000 OCTPO: #100000 ,R4 ;SEE IF MSD = 1 
CTP1 ;1F NOT: BR 
000001 


SEQ 0061 


013262 : PRINT 1 
013156 2 


R4 
013262 J sPRINT 0 
3,R4 


;POSITION DIGIT 


013262 sPRINT DIGIT 2 
3,R4 


013262 sPRINT DIGIT 3 
3,R4 
4 

013262 She PRINT DIGIT 4 


013262 PC,OCTPG 
R3,R4 


013262 J PC.OCTPG :PRINT DIGIT 5 

000240 000614 ocTP3: #240, T0B 

013052 PC,T0G : PRINT SPACE 
“EX 


R : 
177770 OCTPG: #177770,R4 


OCTPGO 
013324 OFL 
OCTPGO 
013276 000207 PC 
013300 005237 013324 OCTPGO: 
013304 000260 OCTPG1: 
013310 000614 
013314 013052 
013320 
013322 
013324 000000 : sFIRST CHAR FLAG 
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sDATA CHARACTER OUTPUT SUBROUTINE**t#eeeeeeeee 
013326 012704 000010 #10,R4 ;SET NUMBER TO PRINT 
000614 M R3,T0B 
165234 : hy 
000200 000614 : oo 
000061 165216 oe 
000060 165206 : #060,aTPB 
000614 3$: TOB 
000207 
013703 000700 oo 
013326 PC ,DOUT 
000700 TEMPS ,R3 
013326 PC ,DOUT 
013426 000207 PC 
;TU45 SERIAL NUMBER PRINT SUBROUTINE*#teeeenee 


013430 010304 


:GET FIRST DIGIT 
013506 r :PRINT 


4 3;GET SECOND DIGIT 
013506 PRINT 
R3,R4 


013506 oa°Es :PRINT THIRD DIGIT 

013506 PRINT FOURTH DIGIT 
PC ;EXIT 

soesee 000614 SNPG: 


SET ASCII 
013052 TYPE DIGIT 
013530 000207 ; RETURN 
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THIS ROUTINE GETS THE NEW VALUE FOR THE SOFTWARE SWITCH REG 


013532 022737 000176 000570 GTSwR: : ——— Tcveane IF SOFTWARE SWR NOT 
NVOK 
013630 PC,.SAVE SAVE REGISTERS ON THE STACK 
#SMSWR,R4 TYPE 'SWR = ' 


GET CURRENT SETTING 
AND TYPE THEM 
#SMNEW,R4 TYPE * NEW = ° 
PC, TTOUT 
SWR,RS TTR ROUTINE RETURN NEW VALUE TO (R5) 
#7,R1 LIMIT RESPONSE TO 7 CHARS 
+ s;BETWEEN 0 AND 177777 


PC,TTR :GET RESPONSE 
013652 PC, .RESTORE RESTORE REGISTERS 
013626 000207 : PC RETURN TO CALLER 


ROUTINE TO SAVE REGISTERS ON THE STACK 
013630 010546 SAVE: MOV 25,-(SP) R5 IS SAVED AT 
24,-(SP) ERG IS SAVED 
%3,-(SP) 3:R3 1S SAVED 
42,-(SP) z:R2 IS SAVED 
%1,-(SP) 3:R1 IS SAVED 
20,-(SP) 7:RO IS SAVED (SP) 
000014 14(SP) ,-(SP) :;PUSH RETURN PC ON THE STACK 
013650 000207 PC 7 :RETURN TO CALLER 


7 ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 
013652 012666 000014 RESTORE : MOV ol oi? > eal 3:STORE RETURN PC ON STACK 
V SP)+, 
(SP)+,%1 
(SP)+,2%2 
(SP)+,2%3 
(SP)+,2%4 
(SP)+,%5 
013672 000207 PC 7 RETURN 
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SMESSAGE TABLE tteeeeeece 
013674 022445 046524 aoiaee MSG1: -ASCII'S2TMO3-TU45S CONTROL LOGIC TEST PART II (CZTUPAO)';++B 


050125 030101 
025052 040452 ° /Z*e*ASSURE TAPE IS AT BOT***/ 


/ZTYPE <CR> TO TERMINATE RESPONSE & C TO RESTART24/ 


051101 


026524 : ASCII /EXPT-NOT RECVD#/ 
042522 


047055 > = «ASCII «=/RCVD-NOT EXPT#/ 
042440 050130 


047117 042455 : ASCII /%NON-EXIST SLAVE #/ 


eASCII /ZREAD CONT BUS PAR #/ 
050040 051101 
044522 042524 : .ASCII /2WRITE CONT BUS PAR #/ 
020124 
040520 
043 
054105 052120 >: ASCII / EXPT #/ 
053103 020104 : ASCII / RCVD #/ 


051115 041040 :  .ASCII /2MR BITS 4-04/ 
020123 026464 


020122 044502 : ASCII /2MR BITS 15-7#/ 
030440 026465 


042524 035122 : ASCII /2ZITER: #/ 
014304 052045 020103 044502 : ASCII /2TC BITS 12-0 #/ 
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014312 051524 030440 026462 
020060 043 
041040 MSG19: . /2FC BITS 15-0 #/ 
032461 


MSG40: . /? #/ 
020104 MSG41: . /&ZZEND OF PASS #/ 
051501 


044507 MSG44: . /ZREGISTER START: #/ 
051440 
052122 020072 


042526 052103 MSG45: . /ZVECTOR ADDRESS: #/ 
040440 042104 
051523 020072 


046524 031460 MSG57: . 7ZTMOS DRIVE: #/ 
042526 


032464 MSG58: . /%TU45 SLAVE: #/ 
042526 


MSG59: /%#/ 


MSG60: / #/ 
047515 MSG62: /ZREMOVE TMDP FROM SLAVE TO BE TESTED%#/ 


042524 
042122 MSG63: . /ZHARDWARE SWR IN USEX#/ 


0 
014560 051525 022505 
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014565 
2 


015224 


042520 


046045 


026114 
047514 
042524 
020072 
031040 
047054 
026114 


047514 


047454 
046045 


026114 
047514 


026114 
047514 


047054 


043517 


047454 
043517 


042117 
044507 
052123 
051127 
047054 
051117 
042117 


044507 


042104 
043517 


047454 
043517 


042117 


044507 
052123 
051127 
047054 
051117 
042117 


044507 


051117 
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STEST HEADEReteeeereee 
MSLT1: .ASCI1 /2ZLOGIC TEST 1: WRAP 3,NRZ,NORMAL,ODD#/ 


MSLT2: . /ZZLOGIC : WRAP 3,PE,NORMAL ,ODDA/ 
MSLT3: . /ZZL0GIC : WRAP 2,NRZ,NORMAL ,ODDA/ 
MSLT4: . /ZZLOGIC : WRAP 2,PE,NORMAL ,ODD#/ 
MSLT5: . /Z2ZL0GIC : WRAP 1,NRZ,NORMAL ,ODD#/ 
MSLT6: . /Z%LOGIC : WRAP 1,PE,NORMAL ,ODD#/ 


MSLT7?: . /ZZL0GIC : WRAP 0,NRZ,NORMAL ,ODD#/ 


MSLT10: .ASCII /%%LOGIC 10: WRAP 0,PE,NORMAL ,ODD#/ 
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CZTUPA.P11 
015232 


015716 


040515 


020116 


026114 
047514 


034470 
047514 


034470 
047514 


040522 
047514 


052515 


042117 
044507 


032063 
044507 


033060 
044507 


042515 
044507 


052114 


MACY11 30(1046) 


MSLT11: . 


MSLT12: 


MSLT13: . 


MSLT14: . 


MSLT15: . 


MSLT16: . 


MSLT17: . 


C 
13-JUN-78 


/%ZL0GIC 


/ZZL0GIC 


/ZZL0GIC 


/ZZL0GIC 


/ZZL0GIC 


/ZZL0GIC 


/%ZL0GIC 


6 
13:42 PAGE 67 


: CORE DUMP WRITE (M8906)4/ 


: CORE DUMP READ (M8906)4/ 


: EVEN PARITY WRITE (M8933 M8934) #/ 


: EVEN PARITY READ(M8933 M8934)#/ 


: READ REVERSE (M8906) 4/ 


: CRC CORRECTION SINGLE TRACK,ALL FRAMES#/ 


: CRC CORRECTION MULTIPLE BAD TRACKS#/ 


SEQ 0067 





D 6 
tote CONTROL LOGIC TEST-PART 11 MACY11 30(1046) 13-JUN-78 13:42 PAGE 68 
CZTU 13-JUN-78 09:59 SEQ 0068 


015724 050111 042514 041040 
040522 


poets MSLT20: .ASCII /%2LOGIC TEST 20: READ REVERSE,NRZ,WRAP 34#/ 


016010 050101 031440 





—E 6 
TMO3-TU4S CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 69 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0069 


7 TAG MESSAGE 
016015 045 053523 020122 SMSWR: .ASCII /ZSWR 
02007 043 
— 020127 S$MNEW: .ASCII / NEW 


016022 
016025 04 
016032 020075 


016036 -EVEN 
sWRITE BUFFER 


016036 000100 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 


016164 177777 








TMO3-TU4S CONTROL LOGIC TEST-PART II 


CZTU 13-JUN-78 09:59 


UPA.P11 


016166 


016234 


016236 
016236 


016330 
016332 


177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 


000100 


000000 


F 
MACY11 30(1046) 13-JUN-78 


RDATA: 


READ BUFFER 


pe De aw) ww fw howfololofejojojeojleofeoejeseleojeleleleolelololelolejlosl—<) 


6 
13:42 PAGE 70 


SEQ 0070 


G 6 
TMO3-TU4S CONTROL LOGIC TEST-PART I] MACY11 30(1046) 13-JUN-78 13:42 PAGE 71 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0071 


016334 000000 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


016434 000000 
WRAP AROUND MESSAGESt#tet® 


016436 051445 052105 050125 WMSG2: .ASCII /%ZSETUP ERROR&#/ 
051122 051117 


052101 047122 WMSG3: .ASCII /ZPATRN NUMBER = 


WMSG4: . ASCII /2NON-EXISTANT DRIVEX#/ 
044522 


021440 WMSG6: . /2CS1 #/ 
043 WMSG6A: /2WC #/ 

021440 WMSG6B: . /ZBA #/ 
043 WMSG6C: . /2FC #/ 

020062 WMSG6D: . /2CS2 #/ 


021440 WMSG6E: . /20S #/ 

043 WMSG6F: /ZER #/ 

045 05 021440 WMSG6G: . /RAS #/ 

016574 041445 020103 043 WMSG6H: . /2CC #/ 





H 6 
TMO3-TU4S CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 72 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0072 


016601 045 041104 021440 WMSG6I: . /20B #/ 
046445 043 WMSG6J: . /ZMR #/ 
045 021440 WMSG6K: /Z0T #/ 
052045 043 WMSG6L: /21C #/ 
045 021440 WMSG6M: /2SN #/ 
042040 WMSGI6: . /%BAD DATA#/ 


043 WMSGI7: . /24G: #/ 
021440 WMSG20: /%B: #/ 
021440 WMSG21: . /ZCN: #/ 
051440 WMSG23: . /ZBAD STATUS#/ 
021523 
047111 WMSG24: . /%2NO INTERRUPT#/ 
051122 050125 


020117 046103 wWMSG25: . /%N0 CLOCK UP#/ 
020113 050125 


047516 041440 WMSG26: .ASCII /%NO CLOCK DOWN#/ 
042040 


oat WMSG27? .ASCII /%DATA PAT:#/ 
020104 WMSG28: .ASCII /%BAD PREAMBLE#/ 
041115 


020104 WMSG29: .ASCII /%BAD POSTAMBLE#/ 
046501 


041440 WMSG31: .ASCII /ZEOR CLEAR DID NOT CLEAR GO%#/ 


3 
040 051124 WMSG32: .ASCII / PATRN #/ 
017064 020116 


017070 -EVEN 
017070 : 


oooooooooooooooo°c oO 


000000 





1 6 
TMO3-TU4S CONTROL LOGIC TEST-PART I] MACY11 30(1046) 13-JUN-78 13:42 PAGE 73 
CZTUPA.P11 13- ~JUN~ 78 09:59 SEQ 0073 


017134 000000 
000000 
000000 
000000 
000000 
000000 
000000 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


017312 000000 








J 6 
TMO3-TUSS CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 74 
CZTUPA.P11 13-JUN-78 09:59 SEQ 0074 


017314 000000 


017334 
017746 000000 
000001 





kK 6 
TMO3-TU4S CONTROL LOGIC TEST-PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 76 
CZTUPA.P11 13-JUN-78 09:59 SYMBOL TABLE SEQ 0075 


000746 010274 006350 014152 001002 
001016 


M 
010616 006300 013674 013324 000724 
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TMO3-TUSS CONTROL LOGIC TEST=PART II MACY11 30(1046) 13-JUN-78 13:42 PAGE 77 
CZTUPA.P11 13-JUN-78 09:59 SYMBOL TABLE SEQ 0076 


001200 000626 000610 WMSG25 016716 007330 

0 WMSG26 
WMSG27 
WMSG28 
WMSG29 
WMSG3 
WMSG31 
WMSG32 
WMSG4 
WMSG6 
WMSG6A 


013630 


000734 000776 WMSG24 016700 007256 


017750 000 


ERRORS DETECTED: 0 


, CZTUPA.SEQ/SOL_CZTUPA.P11 
RUN-TIME: 24 42-2 SECONDS 
RUN-TIME RATIO: 113/69=1.6 
CORE USED: 14k (28 PAGES) 





